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VOORWOORD 


Programma's schrijven 1s zeker voor degene, die voor het eerst 
kennismaakt met de MSX Computer geen eenvoudige opgave. 
MSX-BASIC is een der meest uitgebreide BASIC versies die er op 
dit moment bestaat en om al de mogelijkheden ten volle te 
benutten is beslist geen eenvoudige opgave. Daarom heb ik in dit 
boek dan ook een aantal programma's gebundeld die voor "Elk wat 
wils” bieden 
De programma's zijn allemaal getest, dus alles wat U moet doen 
is de programma's intypen. Bij de opbouw van de programma's heb 
ik zoveel mogelijk getracht steeds nieuwe mogeli!kheden van het 
HSX-BASIC te introduceren. 

Zo heb ik verschillende soorten geluid gebruikt o.a. SOUND en 
PLAY, verschillende methodes toegepast om SPRITES te creeren en 
verschillende manieren om te controleren of SPRIIES iets raken 
o.a, met ON SPRITE GOSUB en met POINT. 

Voor de duidelijkheid zijn de listings voorzien van REM-regels, 
waardoor U zich een beter beeld van de opbouw van elk afzonder- 
lijk programma kunt vormen. 

De programma's waar SPRITES in worden gebruikt zijn voornamelijk 
de zgn. 'ARCADE'-spelen, maar cok bij GALGJE en PH-HSX vindt U 
ze terug. 

Voor hen die graag zelf SPRITES ontwerpen heb ik een eenvoudige 
doch effectieve SPRITE-ONTWERPER opgenomen, 

Elk programma wordt voorafgegaan door de uitleg van het 
programma en indien nodig worden enkele belangrijke zaken van 
het programma toegelicht. 

Bij de tweede druk van dit boek heb ik bij verschillende 
programma's de Fijne kam er nog eens doorgehaald om kleine on- 
duidelijkheden en ongerechtigheden te verwijderen. 

Het programma ‘Boter, Kaas en Eieren’ heb ik compleet opnieuw 
geschreven, zodat de computer nu een duidelijk slimmere tegen- 
stander is geworden 

Al met al hoop ik dat vooral de beginner, mede doordat hij of 
zij het programma zelf intypt, de HSX-computer beter zal leren 
beheersen. Daarnaast wens ik elke gebruiker veel plezier met het 
spelen van deze programma's. 


Februari 1986, 


R.ten Berge 


MSX WACHT OP ANTWOORD 


Een woordspel dat met maximaal 9 spelers gespeels han worden. 

De computer geeft U 10 wiltekeurige letters, waarbij U alleen 
kunt bepalen of U een klinker of een medeklinker wilt hebben. 
Elke speler krijgt dan 45 seconden om met de door de computer 
gekozen letters een zo lang mogelijk bestaand woord te maken. 
Nadat elke speler aan de beurt is geweest, eschijnt er ee 
tussenstand op het scherm. 

Om het spel echt zo eeclijk mogelijk te spelen kunt U een extra 
speler aanwijzen, die met een woordenboek in de hand de gegeven 
woorden controleert. Deze speler treedt op als scheidsrechter en 
zijn woord is beslissend. 

Er zijn leuke varsaties mogelijk door bijv. handicaps in te 
bouwen. Zo kan men bepalen, dat alleen eigennamen zijn toege- 
staan. U kunt op dit thema eindeloos varieren. 


Ket spele, 
Intoetsen van woorden geschiedt met behuip van INKEYS, om een 
letter te wissen gebruikt U de spatiebalk. 


19 REM *** MSX WACHT OP ANTWOORD *** 

2@ KEYOFF:WIDTH4@: COLOR14,1,1:SCREENG 
38 PRINT” * * « MSX WACHT OP ANTWOORD 
ee. 

40 DEF FN HICT2)=INTCCT2-T1)/50) 

50 REM INITIALISEREN 

560 POKE 64583! ,@ 

7@ CLS:LOCATE 3,6 

8@ PRINT "Wat is het aantal spelers ? C1 
La 

90 TS=INKEYS 

1298 R=RNDC-TIME) 

110 IF T$="" OR T&<"”1"” OR T$>”9" THEN 90 
120 BEEP 

130 NP=VALCTS) 

140 DIM SCNP):DS=" ij: 
REM 20 SPATIES 

159 C$="aeiouy” 

158 U$="bcedfghjklmnpgrstvwxz” 

17@ GOTO 780 

188 REM LETTERS KIEZEN 

130 IFINKEYS<>"”"”GOTO190 

288 LOCATE 11,4 

218 PRINT ”Beurt van speler”;P 

22@® LOCATE 5,8 

23@ PRINT “"KlinkerCk) of medeklinkerCm) 
pn 

24@ FOR I=2 TO 20 STEP 2 

250 TS=INKEYS 

258 IF T$<>”k” AND TS<>"”m” THEN 250 

270 IF INKEYS<>”” THEN 260 

280 BEEP 

2390 REM NEEM EEN WILLEKEURIGE LETTER 
300 IF T$="k” THEN MIDSCDS, I,1)=MIDSCCS, 
INTCRNDC-TIME)*6+1), 1) 

318 IF TS="m” THEN MIDSCDS,I,1)=MIDSCUS, 
INTCRNDC-TIME)*20) +1, 1) 

320 REM PRINT DE GEKOZEN LETTER 

330 LOCATE I,12:PRINT MIDSCDS,I,1) 
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NEXT 

RETURN 

REM WOORD INVOEREN 
LOCATE 5,0 


PRINT "Resterende tijd : 45 seconden 


TIME=@: T1=TIME 

L=@ 

As="" 

TS=INKEY$S 

REM KOU DE TIJD BIJ 

H=FN HICTIME) 

LOCATE 22,0:PRINT 4S5-H; "seconden. 
IF H>44 THEN RETURN 

IF T$=""” THEN +20 

BEEP 

REM LETTER INVOEREN OF WISSEN ? 
IF ASCCTS)<>32 OR L=@ THEN 550 
REM LETTER WISSEN 

LOCATE L‚S9:PRINT * ” 

Leet 

AS=LEFTSCAS,L) 

REM LETTER INVOEREN 

IF T$<”a” OR T$>"z"” THEN 600 
Leer 

LOCATE L‚S9:PRINT T$ 

AS=AS+TE 

IF H<4S5 THEN 420 

RETURN 

REM PUNTEN BEREKENEN 

IF L=@ THEN 710 

FOR J=1 TO L 

FOR I=2 TO 20 


IF MIDSCAS,J,1)=MIDSCDS, 1,1) THEN 69 


NEXT I 

GOTO 750 

MIDSCDS,I,1j=" " 

NEXT J 

LOCATE 5,14 

PRINT "Speler”;P;”:"”;L; "punten." 


730 SCP)=SCPI+L 

740 RETURN 

75@ LOCATE 1,14 

750 PRINT "Speler”;P;”gebruikte verkeerd 
e letters.” 

778 RETURN 

78@ REM HOOFDPROGRAMMA 

790 FOR P=1 TO NP 

B9@ CLS 

B12 GOSUB 180 

B2® CLS 

830 LOCATE 6,4 

840 PRINT "Maak een woord van: ” 

858 LOCATE S,6:PRINT D$ 

850 GOSUB 360 

870 GOSUB 620 

880 LOCATE 3,21 

8390 PRINT "Toets een letter in voor verv 
olg.” 

300 IF INKEYS<>”” THEN S00 

910 IF INKEYS="" THEN S10 

320 NEXT 

930 REM PRINT DE TUSSENSTAND 

940 CLS 

S50 FOR I=1 TO NP 

950 BEEP:PRINT ” Speler“; 1I;”:";SCI; 
“punten.” 

370 NEXT 

980 LOCATE 5,15 

930 PRINT "Nog een keer ? Cj/n)" 

1000 TS=INKEYS 

1018 IF T$="j"” THEN BEEP:GOTO790 

1420 IF. T$<>”n” THEN 1000 

1030 BEEP:COLORIS, 4,4: SCREENO: WIDTH37 : KE 
YON: END 
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GALGIE 


Galgje is het bekende raadspel, waarbij U in negen beurten moet 
raden welk woord de computer in zijn geheugen heeft. 

Op het scherm wordt met puntjes het aantal letters, waaruit het 
woord bestaat, aangegeven. 

Telkens als U een letter intoetst controleert de computer of die 
letter in het woord voorkomt. Is dit het geval dan wordt die 
letter op de juiste plaats, in plaats van een punt, neergezet. 

t U een letter ingetoetst die in het woord niet voorkomt, 
dan wordt langzaam maar zeker het vonnis voltrokken. U mag 
slechts negen keer een Fout maken en dan hangt U. 

In de programmaregels 890 t/m S5Q zijn de woorden opgenomen 

waarmee de computer speelt. U kunt die woorden naar eigen idee 
npassen. Let er daarbij op dat U de woorden met kleine letters 

invoert en dat U als laatste DATA-regel een regel invoert die 

gelijk is aan regel 970. 

der is met REM-regels duidelijk aangegeven waar elk program- 

mablok voor dient. 


In regel 20 is een POKE-instructie opgenomen om de CAPS-LOCK uit 
te schakelen, zodat U alleen maar kleine letters kunt invoeren. 
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18 REM *** GALGJE »*e 
e2@ COLORIS,12,12:KEYOFF:WIDTH4O: POKE6468 
3! ,@: SCREENG 


30 PRINT” «NMG ALGIN EN MMT 
40 R=Q:PL=0:FO=0 
50 DS=STRINGSC32,".") 


5@ CS=SPACESC32) 

70 LOCATE 3,19:PRINT"Wilt u zelf een woo 
rd invoeren ?” 

89 TS=INKEYS 

3@ T=RNDC-TIME) 

1009 IF T$=”” THEN 80 

119 IF T$="j” THEN I=1:GOTO 140 

120 IF T$<>”n” THEN 8@ ELSE 170 

130 REM DE SPELER VOERT EEN WOORD IN 

140 PRINT: INPUT "”max.32”;A$ 

15@ IF LENCAS)<1 OR LENCAS)>32 THEN 140 

169 GOTO 250 

17@ REM DE COMPUTER ZOEKT EEN WOORD 

18% RESTORE8S@ 

190 PLAY"”L6406D": A=@ 

200 REM HOEVEEL WOORDEN ZIJN ER ? 

219 READ A$:IF A$<>"Z2222" THEN A=A+1:GOT 
0 210 

228 B=INTCRNDC1)*A)+1 

230 RESTORE8S0 

e4@ FOR F=1 TO B:READ AS:NEXT F 

250 LL=LENCAS) 

258 B$=A$ 

270 CS=LEFTSCCS,LL) 

288 REM SPRITES DEF INIEREN 

230 SCREEN 2,0 

300 SPRITESCO)=-CHRSC&BO0001 000) +CHRSC&BO 
Q001000) +CHRSC&BOODO1 900) +CHREC&BOGMO1 OG 
0) +CHREC&BOOOD1 000) +CHRSC&BODOO1LOOO) +CHR 
SC&BOO111110)+CHRSC&BOI111111D 

310 SPRITESC1)=CHRSC&BOO0D1000) +CHRSC&BO 
2011210)+CHRSC&BOOO11000)+CHRECEBOGDOIO1 
@)+CHRSC&BOODD1001 ) +CHRSC&BOOOD1 00) +CHR 
SC&BO0000100) +CHRSC&BOOAOOO1 1 

320 SPRITESC2)=CHRSC&BO0001000) +CHRS (&BO 


0101100)+CHREC&B10001100)+CHRECRBOO1O100 
0) +CHRSC&B11001000) +CHRSC&BOAOD1 000) +CHR 
SC&BOO010000) +CHRSC&B1 1100000) 

338 SPRITESC3)=CHR$SC&BO)+CHRSC&BOOOI1111 
+CHRSCRBODO11111)+CHREC&BOODII111+CHRE 
C&BOOD11111)+CHRSC&BODOI1111)+CHRSC&BOOG 
11111)+CHRSC&BO0011111) 

340 SPRITESCH)=CHRSC&B10000000) +CHRSC&BI 
1111180)+CHRSC&B11111100)+CHRSC&BO111110 
0) +CHRSC&B11001100)+CHRSC&BO1OO1100)+CHR 
SC&B11001100)+CHRSC&BO1111100) 

350 SPRITESCS)=CHRSC&BO0011111)+CHRSCABO 
@O11111)+CHRSC&BOOOI1111)+CHRSC&BOAOILII1 
1)+CHRSC&B9001 0000) +CHRSC&BIDD11111)+CHR 
SC&BOOO11111+CHRSC&BOAO1I111D 

360 SPRITESCE)=-CHRSC&B11111100)+CHRSCEBO 
1111100)+CHRSC&B11111100)+CHRSC&BO111110 
O)+CHRSC&BOG0DD100) +CHRSC&BO1111100)+CHR 
SC&B11111100)+CHRSC&B11111100) 

370 SPRITESC7)=CHRSC&BOOO11111)+CHRSC&BO 
2Q011110)+CHRSC&BAAA11110)+CHRSC&BADO1111 
@)+CHRSC&BOGO1 1110) +CHRSC&BOADI1110) +CHR 
SC&BA0011110)+CHRSC&BAADII1110) 

380 SPRITESCB)=CHRSC&BO1111100)+CHRSC&BO 
@111100)+CHR$SC&BOO111100)+CHRSC&BOOI1110 
@)+CHRSC&BOO1 11100) +CHREC&BAD111100) +CHR 
SC&BO0111100)+CHRSC&BOD111100) 

330 SPRITESCI)="CHRSC&BOOO11110)+CHRSC&BE 
@011110)+CHRSC&BOAD11110)+CHRSC&BOOOII11 
@)+CHRSC&BOOOI1110)+CHREC&BODO11110)+CHR 
SC&BOOO11110)+CHRSC&BOO110011) 

400 SPRITESC1Q)=CHRSC&BO0111100) +CHRSC&B 
00111100)+CHREC&BOO111100)+CHRECRBOOILII1 
02) +CHRSC&BOO111100)+CHRSC&BAA111100) +CH 
RSC&BOO111100)+CHRSC&BO1100110) 

410 SPRITESC11)=CHRSC&BO0011110)+CHRSC&B 
02011119)+CHRSC&BA0D11110)+CHRSCHLBOODOII 
20) +CHRSC&BO) +CHRSC&BO) +CHRSC&BO) +CHRS CA 
BO) 

320 SPRITESC12)=CHRSC&BO0111100)+CHRSC&B 
@O111100)+CHRECRBOD111100)+CHREC&BOOOL1O 
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OO) +CHRSC&BO) +CHRSC&BO) +CHRSC&BO) +CHRSCH& 
BO) 

430 SPRITESC13)=CHR$C&BO)+CHRSC&B1 100000 
@)+CHREC&B11100000)+CHRSC&B11100000) +CHR 
SC&BO1100000) +CHRSC&BO1 100000) +CHRSC&BOL 
119000) +CHRSC&BOO1 19000) 

440 SPRITESC14)=CHRSC&BOO1 10000) +CHRSC&B 
20110000) +CHRSC&BOO1 11000) +CHRSC&BOO1 100 
O0) +CHRSC&BOOO1 0000) +CHRSC&BON +CHRSCABOI 
+CHRSC&BO) 

450 SPRITESC1S5)=CHRSC&BO)+CHRSC&BOOOOOOI 
1)+CHRSC&BOOOOO111)+CHRECEBOOOOO1 11) +CHR 
SC&BO00AO1 10) +CHRSC&BOOOOO1 10) +CHREC&BOO 
@01110)+CHRSC&BOOOO1 100) 

450 SPRITESC16)=CHRSC&BOO0D1100+CHREC&B 
00001100) +CHREC&BOAO1 1100) +CHRSC&BOODOILI 
00) +CHRSC&BOOOD1A00) +CHRSC&BON +CHREC&BOI 
+CHRSC&BO) 

470 SPRITESC17)=CHR$SC&B10000000) +CHRSC&B 
10000090) +CHRSC&B10000000) +CHRSC&B1 00000 
O0) +CHRSC&B10000000) +CHRSC&B1O000000) +CH 
RSC&B10000000) +CHRSC&B10000000) 

480 REM SCHERM-LAYOUT 

490 LINE C@,191)-(255,183),5,BF 

509 LINE C139,182)-(246,178),1,BF 

51@ OPEN ”GRP:” FOR OUTPUT AS #1 

528 PSET (@,5),12:PRINT #1, ”Woord: ” 

530 PSET C@,25),12:PRINT #1,LEFTSCDS, LL) 
540 PSET (@,50),12:PRINT #1, ”Fout gerade 
pe) 

550 LINE C@,69)-C100,69),15 

560 LINE C@,14)-CH4,14),15 

570 REM LETTER INVOEREN 

580 RR=-@ 

590 TS=INKEYS:IF T$=""THEN 590 

600 PLAY”L6406D":FOR F=1 TO LL 

5610 IF TS=MIDSCBS,F,1) THEN MIDSCCS,F, 1) 
=IS:R=R+1:RR=1:MIDSCBS,F,1)="t” 

528 NEXT F 

530 IF RR=@ THEN GOSUB 670 

5640 PSET C@,21),12:PRINT #1,C$ 


16 


650 IF R=LL THEN 790 

55@ GOTO 570 

5678 REM VERKEERDE LETTER 

588 FORGG=66TO11STEP-S: PLAY”LE4N=GG; ":NE 
XIGG:PLAY"L4O1D":PSET CPL,75),12:PRINT # 
1,18 

630 PL=PL+10 

700 IF FO=@ THEN LINE C155,177)-(159,92) 
‚1,BF:FO=1: RETURN 

710 IF FO=1 THEN LINE C1S55,91)-(200,87), 
1,BF:FO=2: RETURN 

720 IF FO=2 THEN FOR F=1 TO S:LINE C160, 
111+F)-C179+F,92),1:NEXT F:F0=3: RETURN 
730 IF FO=3 THEN PUT SPRITE 17,(194,S91), 
15,17:PUT SPRITE @,C13@,339),15,@:PUT SPR 
ITE 1,C186,187),15,1:PUT SPRITE 2,C194,1 
27),15,2:FO=4: RETURN 

740 IF FO=4 THEN PUT SPRITE 3,C186,115), 
15,3:PUT SPRITE #,C184,115),15,4:PUT SPR 
ITE S,C186,123),15,S5:PUT SPRITE 6,(194,1 
23),15,6:F0=5: RETURN 

750 IF FO=5 THEN PUT SPRITE 7,C(186,131), 
15,7:PUT SPRITE S,C186,139),15,39:PUT SPR 
ITE 11,C186,147),15,11:FO=6: RETURN 

760 IF FO=6 THEN PUT SPRITE 8,C194,131), 
15,8:PUT SPRITE 1@,(194,139),15,1@:PUT S 
PRITE 12,C194,147),15,12:FO=7: RETURN 

770 IF FO=7 THEN PUT SPRITE 13,(208,115) 
‚15,13:PUT SPRITE 14,C200,123),15,14:FO= 
8: RETURN 

780 IF FO=8 THEN PUT SPRITE 15,C181,115) 
‚15,15:PUT SPRITE 16,C181,123),15,16:F0= 
9 

730 REM EINDE VAN HET SPEL 

899 IF FO=3 THEN E$="Jammer, je hangt!” 
ELSE E$="Goed zo!” 

819 IF FO=S9 THEN PSET (@,34),12:PRINT #1 
‚AS 

828 PLAY”M6@Q00S1LB04GOSCO4HAOSDL2F”, "LBOS 
GOSCOSAOEDL2F ”, "LBO3GO4COZAO4DLE2F ” : PSET 
C@,109),12:PRINT #1,ES 


838 PSET C@,116),12:PRINT #1, ”Nog een sp 
elP C4/m)” 

840 TS=INKEYS:IF T$=""THEN 840 

850 IF T$="J” OR T&="”j” THEN RUN 

850 IF T&<>"”N"” AND T$<>”n” THEN 840 

878 COLOR1IS, 4,4: SCREENO: WIDTH37 : KEYON: EN 
D 

880 REM WOORDENSCHAT VAN DE COMPUTER 

838 DATA schroevendraaier, handschoen, ech 
oput,kleurentelevisie, radio, lamp, politie 
‚telefooncel, bureau, tennisracket, pantof f 
el,kerstmis,balpoint 

308 DATA wandelgang, dodemansknop, brandsp 
uit, luchtballon, kaartspel,asbak, ver jaard 
agscadeau,achtertuin, griep, trechter, padd 
estoel, computer 

318 DATAzangstem, broeikas, schijnwerper,s 
chrijnwerker,automobilist,koppelbaas, dee 
ltijdbaan, vitzendbureau, kunstijsbaan, elf 
stedentocht,satire 

92@ DATAvoetbalveld, popmuziek, zendamateu 
r ‚shoarma, schoonmaakbedrijf,schoothondje 
‚knuf felheest,straatmuzikant, vuilcontain 
er,promotie, vlaggemast 

330 DATA accordeon,gitaar,drumstel,casse 
tte, video,accu,enveloppe, hamer ,wekfles,d 
iskette, beeldscherm, beeldplaat, brief papi 
er,‚slim,reserveren, schroom 

340 DATAkalender,schrikkel jaar, haasten, b 
ejaard,compleet, register, resultaat, compl 
ex,‚binair,xantippe,figuur,specialist, psy 
choloog, tentamen, patroon 

350 DATA shag,briefopener,pilsje,biljart 
‚trui,kniekous,sportprogramma,aardappelm 
oeheid, viool ,dekbed,frietkraam, plakband, 
klapband, toonbeeld,strijd 

360% DATA ref lex,horloge,decoratie, hoof ds 
chakelaar,gebak,gemak,straal 

370 DATA 2222 


VIER OP RIJ 


Een bekend Familiespel, waarbij het de bedoeling is om vier 
stenen op een cij te krijgen (verticaal,horizonteal of diagonaal) 
Er zijn 7 kolommen van elk 7 vakken hoog waar U een steen in 
kunt doen. 

Ket blijft een uitdaging om dit soort spelen uit te breiden met 
nieuwe strategieen. Voor Uw gemak werkt het hele programma met 
INKEYS, zodat alias met aan sinpole druk op sen toets wordt 
edtend. 
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10 REM VIER OP EEN RIJ 

20 KEYOFF 

30 PLAY”U1SMEOOOSBOSLBAGFEDCOFAGFEDEL HD” 
‚”U1ISM6S703LECDEFGABAFGFEDELHD” 

40 WIDTK 37 

5@ COLOR 11,1,1 

69 GOSUB 1180 

70 GOSUB 330 

80 GOSUB 700 

90 PLAY”U1SM120004L16CEDGL16B" 


109 GOSUB 1030 

118 GOSUB 930 

128 GOSUB 700 

139 GOSUB 150 

14@ GOTO 70 

15@ REM DE COMPUTER IS AAN DE BEURT 

158 LOCATE @,18:PRINT SPACESC184) 

17® LOCATE 3,19:PRINT "Even geduld a.u.b 
180 B=10 

190 B=B+1 

200 IF ACB)=-3 THEN 230 

218 IF ACB)=C THEN X=C:GOIO 250 

220 IF ACB)=H THEN X=H:GOTO 250 

238 IF B<77 THEN 190 

240 GOTO 500 

250 REM GEVAAR VAN VIER OP EEN RIJ 7 

250 REM HORIZONTAAL 

270 IF ACB+1)=X THEN IF ACB+2)=X THEN IF 
ACB+3)=E THEN IF ACB+13)<>E THEN MOVE=B 
+3:GOTO 680 

280 IF ACB-1)=X THEN IF ACB-2)=X THEN IF 
ACB-3)=E THEN IF ACB+7)<>E THEN MOVE=B- 

3:GOTO 680 à 

230 IF ACB+1)=X THEN IF ACB+2)=X THEN IF 
ACB-1)=E THEN IF ACB+9)<>E THEN MOVE=B- 
1:GOTO 680 

308 IF ACB-1)=X THEN IF ACB+2)=X THEN IF 


ACB+1)=E THEN IF ACB+11)<>E THEN MOVE=B 
+1:GOTO 680 
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310 IF ACB+1)=X THEN IF ACB-1)=X THEN IF 
ACB+2)=E THEN IF ACB+12)<>E THEN MOVE=B 
+2:GOTO 680 

320 IF ACB+1)=X THEN IF ACB-1)=X THEN IF 
ACB-2)=E THEN IF ACB+8)<>E THEN MOVE=B- 
e2:G0TO 680 

330 IF ACB-1)=X THEN IF ACB-2)=X THEN IF 
ACB+1)=E THEN IF ACB+11)<>E THEN MOVE=B 
+1:GOTO 680 

340 REM VERTICAAL 

350 IF B>20 THEN IF ACB-10)=X THEN IF AC 
B-20)=X THEN IF ACB+10)=E THEN IF ACB+20 
2<>E THEN MOVE=B+10:GOTO 680 

360 REM DIAGONAAL 

370 IF ACB+11)=X THEN IF ACB+22)=X THEN 
IF ACB-11)=E THEN IF ACB-1)<>E THEN MOVE 
=B-11:GOTO 680 

380 IF ACB+S9)=X THEN IF ACB+18)=X THEN I 
F ACB-9)=E THEN IF ACB+1)<>E THEN MOVE=B 
=3:GOTO 680 

330 REM ZIJN ER DRIE OP EEN RIJ ? 

400 REM HORIZONTAAL 

41@ IF ACB+1)=X THEN IF ACB+2)=E THEN IF 
ACB+12)<>E THEN MOVE=B+2:GOTO 680 

420 IF ACB+1)=X THEN IF ACB-1)=E THEN IF 
ACB+9)<>E THEN MOVE=B-1:GO0TO 680 

430 IF ACB-1)=X THEN IF ACB-2)=E THEN IF 
ACB+8)<>E THEN MOVE=B-2:GO0TO 680 

HHD REM VERTICAAL 

450 IF ACB+10)=X THEN IF ACB-10)=E THEN 
IF ACB)<>E THEN MOVE=B-10:GOTO 680 

460 REM DIAGONAAL 

470 IF ACB+9)=X THEN IF ACB-9)=E THEN IF 
ACB+1)<>E THEN MOVE=B-S:GOTO 680 

480 IF B>11 THEN IF ACB+11)=X THEN IF AC 
B-11)=E THEN IF ACB-1)<>E THEN MOVE=B-11 
:GOTO 680 

490 GOTO 230 

500 REM ENKELE ZET 

510 FOR N=1 TO 3 

528 MCND=@ 


21 


530 NEXT N 

540 TEL=O 

550 FOR B=11 TO 77 

5560 IF ACB)<>C THEN IF ACB)<>H THEN 620 
570 IF ACB+1)=E THEN IF ACB+11)<>E THEN 

TEL=TEL+1:MCTEL)=B+1 

580 IF ACB-1)=E THEN IF ACB+9)>E THEN T 

EL=TEL+1:MCTEL)=B-1 

530 IF ACB-10)=E THEN IF ACB)<>E THEN TE 

L=TEL+1:MCTEL)=B-10 

500 IF ACB-11)=E THEN IF ACB-1)<>E THEN 
TEL=TEL+1:MCTEL)=B-11 

5610 IF ACB-9)=E THEN IF ACB+1)<>E THEN T 
EL=TEL+1:MCTEL)=B-9 

520 NEXT B 

530 IF TEL<>@ THEN 670 

54@ LOCATE @,18:PRINT SPACESC184) 

65% LOCATE 7,19:PRINT "Ik bied remise aa 
n.” 

558 GOTO 880 

578 MOVE=MCINTCRNDC-TIME)“TEL)+1) 

588 ACMOVE)=C 

5398 RETURN 

700 REM CONTROLEER DE WINST 

710 X=H 

720 B=10 

730 B=B+1 

740 IF ACB)<>X THEN 790 

750 IF ACB+1)=X THEN IF ACB+2)=X THEN IF 
ACB+3)=X THEN 820 

76@ IF B>30 THEN IF ACB-10)=X THEN IF AC 
B-20)=X THEN IF ACB-30)=X THEN B20 

770 IF B>33 THEN IF ACB-11)=X THEN IF AC 
B-22)=X THEN IF ACB-33)=X THEN B20 

780 IF B>27 THEN IF ACB-9)=X THEN IF ACB 
=18)=X THEN IF ACB-27)=X THEN 820 

730 IF B<77 THEN 730 

820 IF X=H THEN X=C:GOTO 720 

810 RETURN 

820 REM WINNENDE COMBINATIE IS ER ! 

830 PLAY”"UISMS9Q0S1L1SCDEFGRS4LBCC" 
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840 
858 
B50 
agen 
B70 
gen 
880 
Pc 
BS0 
300 
310 
320 
330 
340 
IJ 
950 
960 


LOCATE @,18:PRINT SPACESC184) 

LOCATE 5,13 

IF X=H THEN PRINT "Je hebt mij versl 
Ll Aas 

IF X=C THEN PRINT "Ik heb jou versla 
(Nd 

LOCATE 5,21:PRINT "Nog een spelletje 

J/nd” 

AS=INKEYS: IF A$="" THEN 890 

IF A$="J" OR AS="j" THEN RUN 

IF A$<>”N"” AND AS<>”n” THEN 890 

KEYON: CLS: END 

REM SCHERM-LAYOUT 

LOCATE 5,@:PRINT "**e« VIER OP EEN R 

… 

FOR K=10 TO 70 STEP 10 

FOR J=1 TO 7 


970 LOCATE 2*J+9,K/S5 


380 


PRINT CHRSCACK+J)) 


930 NEXT J 


1020 
1010 
1020 
1030 
1040 
1050 
1050 
1070 
7)" 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
niet 
1170 
1188 


NEXT K 

PRINT:PRINT TABC11);"”1 2 3 4 56 7” 
RETURN 

REM DE SPELER IS AAN DE BEURT 
LOCATE @,18:PRINT SPACESC184) 
LOCATE 7,19 

PRINT "Jij bent aan de beurt.” 
LOCATE B,21:PRINT "Welke kolom P C1 


IF INKEYS<>”"” THEN 1080 
AS=INKEYS: IF A$=""” THEN 1090 
IF A$<”1” OR AS>”7"” THEN 1090 
J=VAL CAS) 

2=J 

2=2+10 

IF AC2+10)=E THEN 1130 

IF AC2)=E THEN AC2)=H:RETURN 
LOCATE 2,22:PRINT "Daar kun je hem 
in doen !!!” 

GOTO 1070 

REM INITIALISEREN 
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1190 CLS 

1200 FOR F=3080 TO 3035 

1210 READ A:UPOKE F,A:NEXI F 

1229 DEFINT A-Z 

1230 DIM AC109),MC30),PC6) 

1240 E=ASCC",") 

1250 H=ASCCCHRSC129)) : C=ASCCCHRSC130)) 
1260 FOR B=1 TO 109 

1270 ACB)=E 

1280 D=-B-10*INTCB/10) 

1290 IF D=@ OR D>7 OR B<11 OR B>77 THEN 
ACB)=-9 

1300 NEXT B 

1310 RETURN 

1320 DATA 0,132,72,48,48,72,132,0,0,255, 
204,180,180,180,204,255 
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BOTER,KAAS en EIEREN 


Een zeer bekend spel, inmiddels ook voor vele computers, dat in 
Engeland zeer bekend is als Tic Tac Toe. 

Voor degene die het spel nog niet kennen: de speler en de 
computer zetten om beurten resp. een kruisje en een nulletje in 
het speelraam met als doel drie kruisjes of drie nulletjes op 
een rij te krijgen. 

Dit kan zowel horizontaal, verticaal als diagonaal zijn. 

Bij het begin van het spel kan de speler kiezen of hij als 
eerste een zet mag doen of dat hij dat aan de computer zal over- 
laten. Laat bij wijze van proef de computer maar eens beginnen 
en probeer dan maar te winnen. 

In deze tweede druk heb ik een compleet nieuwe versie geschreven 
omdat de versie uit de eerste druk van dit boek toch nog te sim- 
pel was. De computer speelt nu een duidelijke tactiek en U zult 
merken dat het niet eenvoudig 15 om nu van de computer te 
winnen. Een gelijk spel 1s vaak het maximaal haalbare voor de 
meeste spelers. 


In programmaregels 1170-1210 en cegeis 2120-2160 zijn de volgen- 
de GRAFISCHE tekens in PRINT-opdrachten opgenomen 


U = CHR$C2) GRAPH + toets [GJ 


U = CHR$ 22 


GPAPH 


SHIFT + toets C\J 


We CHRSLEL 


GRAPK » toets C_1 
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90 

100 
EN. 
110 


REM BOTER, KAAS EN EIEREN 

KEYOFF : SCREEN: WIDTH4@: COLOR11,1,1 
X1=8:Y1=6:X2=D: Y2=5 

BS=SPACESC40) 

51 

FORI=1T09 

BCe P 

BCI)=@ 

NEXT 

LOCATE10,0:PRINT"BOTER, KAAS EN EIER 


„ 


GOSUB2110 


128 GOSUB1160 


130 


REM ALTIJD VRAGEN WIE ER BEGINT 7 


140 LOCATE6,22:PRINT”Om de beurt beginne 


n? 


150 DS=INKEYS: IFDS 


150 


CI/ND *; 


””GOTO1S@ 
IFD$="J"ORDS="j"THENM=1 : GOTO180 


178 IFDS<> ”N”ANDDS<> ”"n”GOTO1 40 


180 


REM WIE BEGINT HET SPEL 


190 T=@ 


200 


IFTS>OTHENIFM=1THENIFM2=1THENM2@=-1:G 


OTOe280 


210 


IFTS>OTHENIFM=1THENIFM2=-1THENM2=1:G 


OT0370 


220 


LOCATEO, 22: PRINTLEFTSCBS, 39) ; 


230 LOCATEB,22:PRINI”Wil jij beginnen ? 


CJ/ 


240 DS=INKEYS: IFDS 


ND ”; 


"”GOTO24O 


25@ IFDS="J"ORDS="j"THENM2=-1 :GOTO280 
259 IFDS="N"ORDS="n”THENM2=1: GOTO370 
27@ GOTO180 


280 


REM HOOFDPROGRAMMA 


29® GOSUB480 


300 


BCU)=-1 


310 PSCU)=CHRSCBED 


320 


GOSUBS60 


330 D=-1 


340 
350 
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GOSUB630 
IFC3<>@THENC3=-1: GOTO1830 


350 T=T+1 

370 IFT=STHENC3=@: GOTO1830 

388 GOSUB75@ 

390 BCX)=1 

400 PSCX)=CHRSC7I) 

410 GOSUBS60 

420 D=1 

430 GOSUB630 

440 IFC3<>OTHENC3=1: GOTO1830 

450 T=T+1 

450 IFT=STHENC3=0:GOTO1830 

470 GOTO280 

480 REM INPUT VAN DE SPELER 

4390 LOCATE@, 22: PRINTLEFTSCBS, 39) ; 

500 LOCATE8,22:PRINT”Voer het veld in C1 
-5)"; 

510 DS=INKEYS: IFDS=""ORDS<"”1"ORDS> "3"GOT 
0518 

520 V=VALCDS): IFBCU)GOTOS1G 

530 PLAY”U1SM597S1LBO0SAF" 

540 LOCATE, 22: PRINILEFTSCBS, 39) ; 

550 RETURN 

560 REM DISPLAY 

570 FORI=1103 

58® LOCATEX1+2*1,Y1:PRINIPSCID 

590 LOCATEX1+2*I,Y1+2: PRINIPSCI+3) 

600 LOCATEX1+2*1,Y1+4: PRINIPSCI+6) 

610 NEXT 

520 RETURN 

630 REM DRIE OP EEN RIJ ? 

640 C3=0 

650 FORI=1T07STEP3 

56® IFBCIJ=BCI+1DTHENIFBCIJ=BCI+2) THENIF 
BCI)=DTHENC3=1 : GOTO740 

570 NEXT 

580 FORI=1T03 

630 IFBCIJ=BCI+3)THENIFBCIJ=BCI+B)THENIF 
BCI)=DTHKENC3=1 : GOTO740 

700 NEXT 

710 FORI=1TO7STEP6G 

728 IFBCID=BCS)THENIFBCI)=BC1@-IDTHENIFB 
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CIJ=DTHENC3=1 : GOTO740 

730 NEXT 

740 RETURN 

750 REM DE COMPUTER IS AAN ZET 

7560 IFT=OTHENX=2*INTCRNDC-TIME)*5)+1:GOT 
01150 

770 X=-1:A=1:B=1:C=Q: GOSUBS10: IFX<>-1GOT 
01150 

78@ GOSUB1230: IFX<>-1G0T01150 

790 S=0 

809 A=1:B=1:C=0:GOSUBS1O 

819 5=S+1 

B29 X=-1 

838 IFS=1THENA=-1:B=-1:C=@: GOSUBS10 

B4@ IFS=2THENA=1:B=0:C=@: GOSUBS10 

858 IFS=3THENA=@:B=1:C=@: GOSUBS10 

850 IFS=4THENA=-1:B=@:C=@: GOSUBS10 

870 IFS=STHENA=@:B=-1:C=@: GOSUBS10 

880 IFX<>-1G0T01150 

839 IFS=6GOTO1080 

90@ GOTOB1G 

919 REM KIES TACTISCHE ZET 

320 FORI=1T07STEP3 

930 IFBCI)=ATHENIFBCI+1)=BTHENIFBCI+2)=C 
THENX=I+2:GOTO1070 

940 IFBCIJ=CTHENIFBCI+1)=ATHENIFBCI+2)=B 
THENX=I: GOTO1070 

358 IFBCI)=BTHENIFBCI+1)=CTHENIFBCI+2)=A 
THENX=I+1:GOTO1070 

350 NEXT 

970 FORI=1T03 

980 IFBCI)=ATHENIFBCI+3)=BIHENIFBCI+6)=C 
THENX=I+6:GOTO1070 

330 IFBCI)=BTHENIFBCI+3)=CTHENIFBCI+6)=A 
THENX=1+3:GOTO1070 

1020 IFBCI)=CTHENIFBCI+3)=ATHENIFBCI+6)= 
BTHENX=I : GOTO1070 

1010 NEXT 

1029 FORI=1T07STEP6 

1030 IFBCI)=ATHENIFBCS)=BTHENIFBC1@-1I)=C 
THENX=10-1I:GOTO1070 
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1040 IFBCI)=BTHENIFBCS)=CTHENIFBC10-1)=A 
THENX=S5: GOTO1070 

1858 IFBCI)=CTHENIFBCS)=ATHENIFBC1@-1)=B 
TKENX=I : GOTO1070 

1050 NEXT 

1070 RETURN 

1089 REM GEEN TACTISCHE COMBINATIE AANWE 
21G 

1038 FORI=1TOSSTEP2 

1108 IFBCI)=@THENX=I:GOTO115@ 

1118 NEXT 

1128 FORI=2TO8STEPe 

1138 IFBCI)=O@THENX=I:GOTO1150 

1140 NEXT 

1158 PLAY"”V1ISM1500S1LBO3F” : RETURN 

1158 REM SCHERM-LAYOUT 

1178 LOCATEX1+2,Y1:PRINT” U U ":REM ZIE 

BESCHRIJVING 

1188 LOCATEX1+2,Y1+1:PRINT"”WUWUW": REM ZI 
E BESCHRIJVING 

113@ LOCATEX1+2,Y1+2:PRINT” U U ”:REM ZI 
E BESCHRIJVING 

1208 LOCATEX1+2,Y1+3: PRINT"WUWUW": REM ZI 
E BESCHRIJVING 

1218 LOCATEX1+2,Y1+4: PRINT” UV U ":REM ZI 
E BESCHRIJVING 

1228 RETURN 

1230 REM STANDAARD COMBINATIES 

124@ IFT=1THENIFBCS)=-1THENX=2*INTCRNDC- 
TIME)*S)+1: IFX=5GOTO1240 

125@ IFRNDC-TIME)>,SGOTO1310 

1258 IFT=1THENIFBC1)=-1THENX=9: GOTO1820 

1278 IFT=1THENIFBC9)=-1THENX=1:GOTO1820 

1280 IFT=1THENIFBC3)=-1THENX=7: GOTO1820 

1230 IFT=1THENIFBC7)=-1THENX=3:GOTO1820 

1300 GOTO1350 

1318 IFT=1THENIFBC1)=-1THENX=2*INTCRNDC- 
TIME)*2)+6: GOTO1820 

1320 IFT=1THENIFBCS)=-1THENX=2*INTCRNDC- 
TIME)*2)+2:GOTO1820 

1330 IFT=1THENIFBC3)=-1THENX=4*INTCRNDC- 
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TIME)*2)+4:GOTO1820 

1340 IFT=1THENIFBC7)=-1THENX=4#INTCRNDC- 
TIME)*2)+2:GOTO1820 

1350 IFBCS)<>-1GO0TO1400 

1350 IFT=3THENIFBC1)=-1THENIFBCS9)=1THENX 
=H INTCRNDC-TIME)*2)+3: GOTO1820 

1370 IFT=3THENIFBC1)=1THENIFBCS9)=-1THENX 
=* INTCRNDC-TIME)*2)+3: GOTO1820 

1388 IFT=3THENIFBC3)=1THENIFBC7)=-1THENX 
=B*INTCRNDC-TIME)*2)+1: GOTO1820 

13390 IFT=3THENIFBC3)=-1THENIFBC7)=1THENX 
=B*INTCRNDC-TIME)*2)+1: GOTO1820 

1400 IFT<>2G0TO1S70 

1410 IFBC1)=-1THENIFBCS)=1THENX=4*INTCRN 
DC-TIME)*2)+3:55=10-X:GOTO1820 

1420 IFBC1)=1THENIFBCS)=-1THENX=4*INTCRN 
DC-TIME)*2)+3: S55=10-X:GOTO1B20 

1430 IFBC3)=-1THENIFBC7)=1THENX=B*INTCRN 
DC-TIME)*2)+1:55=10-X:GOTO1820 

1440 IFBC3)=1THENIFBC7)=-1THENX=B*INTCRN 
DC-TIME)*2)+1:S5=18-X:GOTO1820 

1850 IFBCI)=1THENIFBC2)=-1THENX=7:55=9:G 
OTO1820 

1450 IFBC1)=1THENIFBC4)=-1THENX=3:S5=9:G 
OTO1820 

1470 IFBC1)=1THENIFBC6)=-10RBCB)=-1THENX 
=H*INTCRNDC-TIME)*2)+3: 55=S: GOTO1820 
14809 IFBC3)=1THENIFBC2)=-1THENX=9:S55=7:G 
OTO1820 

14390 IFBC3)=1THENIFBC6)=-1THENX=1:55=7:G 
OTO1820 

1500 IFBC3)=1THENIFBC4)=-10RBCB)=-1THENX 
=B*INTCRNDC-TIME)*2)+1:S5=S5:GOTO1820 
1518 IFBC7)=1THENIFBC4)=-1THENX=9:55=3:G 
OTO1820 

1528 IFBC7)=1THENIFBCB)=-1THENX=1:55=3:G 
OTO1820 

153@ IFBC7)=1THENIFBC2)=-10RBC6)=-1THENX 
=8*INICRNDC-TIME)*2)+1:S5=S:GOTO1820 
154@ IFBCS)=1THENIFBCB)=-1THENX=3:S5=1:G 
OTO1820 
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1558 IFBCS)=1THENIFBC6)=-1THENX=7:S5=1:G 
OTO1820 

1560 IFBCS)=1THENIFBC2)=-1O0RBCH4)=-1THENX 
=4*INTCRNDC-TIME)*2)+3: S5=5: GOTO1820 
1570 IFT=4THENIFSSTHENX=S5:55=0: GOTO1820 
1582 IFT=4THENIFBC7)=1THENIFBCS9)=1THENIF 
BCS)=OTHENIFBC1)=O@THENX=1:GOTO1820 ELSE 
IFBC3)=OTHENX=3: GOTO1820 

1590 IFT=4THENIFBC1I)=1THENIFBC3)=1THENIF 
BCS)=OTHENIFBC7)=@THENX=7:GOTO1820 ELSE 
IFB(S)=OTHENX=S: GOTO1820 

1500 IFT=4THENIFBCI)=1THENIFBC7)=1THENIF 
BC5)=OTHENIFBC3)=OTHENX=3: GOTO1820 ELSE 
IFBCS9)=OTHENX=3: GOTO1820 

1512 IFT=4THENIFBC3)=1THENIFBCS)=1THENIF 
BCS)=OTHENIFBC1)=@THENX=1:GOTO1820 ELSE 
IFBC7)=OTHENX=7 : GOTO1820 

1529 IFT<>20RBCS5)<>1G0TO1710 

1530 IFBC1)=-1THENX=9:GOTO1820 

1549 IFBC3)=-1THENX=7: GOTO1620 

1550 IFBC7)=-1THENX=3: GOTO1820 

1568 IFBC9)=-1THENX=1:GOTO1820 

1570 IFBC2)=-1THENX=2*INTCRNDC-TIME)*2)+ 
1:S55=X+6:GOTO1820 

1580 IFBC4)=-1THENX=6*INTCRNDC-TIME)*2)+ 
1:S5=X+2:GOTO1820 

15390 IFBC6)=-1THENX=6*INTCRNDC-TIME)*2) + 
3:S5=X-2:GOTO1820 

1700 IFBCB)=-1THENX=2*INTCRNDC-TIME)*2)+ 
7:S5=X-6:GOTO1820 

1710 IFT<>20RB(5)<>-1G0TO1750 

1720 IFBC1)=1THENX=S:GOTO1820 

1730 IFBC3)=1TKENX=7: GOTO1820 

17409 IFBC7)=1THENX=3:GOTO1820 

1750 IFBCS9)=1THENX=1:GOTO1820 

1750 IFT<>4ORSS=QGOTO1780 

1770 X=S5:S5=@: GOTO1820 

1780 IFT<>30RBCS)<>-1G0TO1810 

1730 IFBC1)=1THENIFBCS9)=1THENX=8*INTCRND 
C-TIME)*2)+1 : GOTO1820 

1809 IFBC3)=1THENIFBC7)=1THENX=4*INTCRND 


C-TIME)*2)+3: GOTO1820 

1819 REM EUT. VOLGENDE TACTISCHE ZET 
1820 RETURN 

1830 REM DRIE OP EEN RIJ 

1849 PLAY”U1SM5OO0S1L1504BOSLE4CDEFGAL32 
B” 

1850 T39=-T9+1 

1860 IFC3=OTHENLOCATE3, 12: PRINT"Gelijksp 
el,je hebt je goed geweerd.”:E9=ES+1:GOT 
01890 

1878 IFC3=1THENLOCATES, 12: PRINT"De compu 
ter heeft jou verslagen. ”:C9=C3+1:GOTO18 
30 

1889 LOCATE2,12:PRINT"Proficiat, de comp 
uter is verslagen.”:PS=PS+1 

1839 LOCATEG, 2: PRINTUSING”Computer ad 
#”;CS 

1308 LOCATEG, 3: PRINTUSING"Gelijkspel :## 
#”;ES 

13919 LOCATE22,2:PRINTUSING"Speler  :###” 
;PS 

1320 LOCATE22,3:PRINTUSING"Totaal  :###” 
:T3 

1330 LOCATES,22:PRINT"Wil je nog een kee 
Fr P CJ/ND) ”; 

1940 DS=INKEYS: IFDS="”"GOTO1S40 

1359 IFD$="N"ORDS="n”GOTO2220 

1360 IFDS<>”J"ANDDS<>”j"”GOTO1940 

197@ REM VOLGEND SPEL 

13989 LOCATEG, 12: PRINTLEFTS(BS$, 39) 

1399@ LOCATE@, 22: PRINILEFTSCB$, 39) ; 

2000 FORI=1TO9:PSCIJ="” ”:BCI)=@:NEXT 
2010 S5=@ 

2020 IFTS=OTHENTS=1:X1=8:GOTO2100 

2030 IFTS=1THENTS=2:X1=15:GOTO2100 

2040 IFTS=2THENTS=3:X1=22:GOTO2100 

2050 IFTS=3THENTS=4:X1=29:GOTO2100 

2058 IFTS=4THENIFY1=S6THENIS=@:X1=1:Y1=14 
:GOTO2100 

2078 FORF=STOS:LOCATE7,F:PRINILEFTSCBS, 3 
2):NEXT 


2080 FORF=10TO22:LOCATEO,F:PRINILEFTSCBS 
„39); : NEXT 

2030 15=1:Y1=6:X1=B 

2100 PLAY”U1SM6O00S1LE4O4CDEFGABC” , ”V1SN 
697S1L640SCDEFGABC” : GOSUB1160: GOTO18G 
2110 REM DISPLAY VOORBEELD 

2120 LOCATEX2+2,Y2:PRINT”1U2U3"”:REM ZIE 
BESCHRIJVING 

2130 LOCATEX2+2,Y2+1:PRINT"WUWUW":REM ZI 
E BESCHRIJVING 

2140 LOCATEX2+2, Y2+2:PRINT”HUSU6”: REN ZI 
E_ BESCHRIJVING 

2150 LOCATEX2+2, Y2+3: PRINT”WUWUW”: REM ZI 
E BESCHRIJVING 

2150 LOCATEX2+2, Y2+4: PRINT”7UBUS”: REN ZI 
E BESCHRIJVING 

2170 LOCATES6,2:PRINIUSING"Computer — :## 
#”;CS 

2180 LOCATEG, 3: PRINIUSING”Gelijkspel :## 


2199 LOCATE22,2:PRINTUSING"Speler  :###” 
2200 LOCATE22,3:PRINTUSING"Totaal :###” 
2218 RETURN 

2220 REM EINDE V/H SPEL 


2230 CLS:LOCATE12, 12: PRINT"EINDE PROGRAM 
MA. ..”:KEYON: COLOR1S, 4, 4: LOCATEOG, 22: END 
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MasSter—X 


Ondanks de eenvoud van dit oorspronkelijke bordspel is het een 
interessant spel om met de computer of iemand anders te spelen, 

Beide spelers beschikken over twee stenen, waarvan ze er eentje 
om de beurt naar de open plaats moeten schuiven. 

Ket spel is afgelopen, zodra een der spelers bemerkt dat hij 
geen enkele zet meer kan doen. 

Probeer eerst eens met twee spelers en daarna eens tegen de 
computer, U zult zien dat tegen de computer niet te spelen valt. 
Een menselijke tegenstander kan nog wel eens een Foutje maken, 
waardaor U het spel kunt winnen. De computer maakt echter geen 
Fouten en dat zult U spoedig merken. 
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10 REM *** HOEFIJZER *** 
20 COLOR 1,11,11 

30 SCREEN @ 

40 KEYOFF 

50 LOCATIE 9,9 

60 PRINT ”1 OF 2 SPELERS 7” 

70 AS=INKEYS:IF A$="" THEN 70 

80 IF A$<>”1” AND AS<>”2” THEN 70 

90 IF A$-”1” THEN C=1 ELSE C=Q 

100 SCREEN 2,0 

110 OPEN ”GRP:” AS #1 

120 REM SPRITES DEF INIEREN 

130 SPRITESC1)=CHRSCEOI+CHRSC125)+CHRSC2 
31) +CHRSC219)+CHRSC219)+CHRSC2I1D +CHRSCI 
26) +CHR$C6O) 

140 SPRITESC3)=SPRITESC1) 

150 SPRITES(2)=CHRSCB6O)+CHRSC125)+CHRSC2 
19)+CHRSC231)+CHRSC231) +CHRSC219)+CHRSC1 
26)+CHRSC5O) 

160 SPRITESC4)=SPRITESC2) 

170 REM COORDINATEN VAN SPRITES 

180 XC1)=74:XCII=17H: XC2I=7H: CHI =17HE XC 
5)=126 

199 UC1J=7H:UC2I=17H: UCI) =7H: UCHI= 178: UC 
5)=126 

200 YC1D=H2: YCII=H2: YCEI=1H2: VCH =1H2: YC 
5)-g2 

210 WCID=He: WE2I=H2: WCII= 142: WCH =1H2: WC 
5)-ge 

220 PC1)=1:PC2)=3:PC3I=2: PCH) =H: PC5I=0 
230 IF C=1 THEN SP=2 ELSE SP=1 

240 REM SCHERM-LAYOUT 

250 LINE (78,46)-(78,146),5 

260 LINE (78,46)-(178,146),5 

270 LINE C78,146)-(178,145),5 

280 LINE C78,146)-C178,46),5 

290 LINE C178,46)-(178,145),5 

300 PSET (76,29),11:PRINT #1,”1” 

310 PSET C176,29),11:PRINT #1,”2” 

320 PSET (76,155),11:PRINI #1,”3” 
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330 PSET C175,155),11:PRINT #1 

340 PSET C126,80),11:PRINT #1, 
35@ REM HOOFDPROGRAMMA 

36@ REM ZET DE SPRITES NEER 
370 PUT SPRITE 1,CXC1),YC19),6,1 

388 PUT SPRITE 3,CXC3),YC3)), 4,3 

3390 PUT SPRITE 2,CXC2),Y(2)),6,2 

400 PUT SPRITE #,CXCH),YCHID,H, H 

410 IF SP=2 AND C=1 THEN 630 

428 IF CPC1)*PC3)=3 AND PCS)*PC4)=B) OR 
CPC2)*PCH)=3 AND PCS)*PC3)=B) THEN WW=2: 

GOTO 770 

#30 REM DE SPELER IS AAN DE BEURT 

440 PSET C98,2),11:PRINT #1, ”SPELER";SP 

450 PSET C78,155),11:PRINT #1, "Van plaat 

s:”; 

460 IF INKEYS<>"”” THEN 460 

470 AS=INKEYS:IF AS="" THEN 470 

480 A=VALCAS) 

490 IF PCA)<>SP AND PCA)<>SP+2 THEN 470 

500 PRINT #1,A 

S1@ PSET (70,175),11:PRINT #1, "Naar plaa 
ta:”; 

520 AS=INKEYS:IF A$="" THEN 520 

530 B=VALCAS) 

540 IF B<1 OR B>5 OR PCB)<>@ THEN 520 

550 IF A*B=2 OR A*B=4 OR A*B=6 THEN LINE 
C70@,153)-(255,131),11,BF:GOTO 450 

560 PRINT #1,B 

578 XCPCAIJ=UCB): YCPCAID=WCB): SWAP PCA), 
PCB) 

588 LINE C@,0)-C255,11),11,BF 

530 LINE (70,1563)-(255,131),11,BF 

600 IF SP=1 THEN SP=2 ELSE SP=1 

619 FOR F=1 TO 60O:NEXT F 

628 GOTO 360 

638 REM DE COMPUTER IS AAN DE BEURT 

640 IF CPCI)*PC3)=B AND PCS5S)*PCH)=3) OR 
CPC2)*PCH)=B AND PCS)*PC3)=3) THEN WW=1: 
GOTO 770 

565@ PSET C98,2),11:PRINT #1, "COMPUTER" 
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5650 IF PC1)*PC3)=3 THEN A=2:B=CS5 AND PCS 
)=0)+CH AND PC4)=@):GOTO 720 

670 IF PC2)*PCH)=3 THEN A=1:B=C5 AND PCS 
)=0)+C3 AND PC3)=@):GOTO 720 

5680 IF PC1)*PC4)=8 AND PC5)*PC2)=3 THEN 
A=1:B=3:GOTO 720 

630 IF PC2)*PC3)=8 AND PCS)*PC1)=3 THEN 
A=2:B=4:GOTO 720 

700 FOR F=1 TO S:IF PCF)<>@ THEN NEXT F 
ELSE BeF 

710 A=INICRNDC-TIME)*5+1):IF A=B OR CPCA 
><>2 AND PCA)<>H) OR A*B=2 OR A*B=4 OR A 
*B=6 THEN 710 ELSE GOTO 720 

720 XCPCAID=UCB): YCPCAI)=WCB) : SWAP PCA), 
PCB) 

730 LINE C@,0)-C255,11),11,BF 

740 IF SP=1 THEN SP=2 ELSE SP=1 

750 FOR F=1 TO 600:NEXT F 

760 GOTO 360 

770 REM EINDE VAN HET SPEL 

780 IF WWw=1 THEN A$S="Speler 1” ELSE AS=” 
Speler 2” 

790 IF Ww=2 AND C=1 THEN A$="De computer 
BO9 PSET C20,2),11 

B1@ PRINT #1,A$S;” heeft gewonnen |!!!" 
B2g PSET C4@,170),11 

830 PRINT #1,"”Nog een spelletje P Cj/n)” 
B40 AS=INKEYS: IF A$=”"” THEN 840 

850 IF A$="J" OR AS="j" THEN RUN 

850 IF A$S<>”N” AND AS<>”n” THEN 840 

870 KEYON:END 
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GALUINTET 


Eenmaal bezig met dit spel zult U merken dat QUINIET snel te 
leren 1s, maar moeilijk te winnen 1s. 

U speelt tegen de computer op een veld van 8 bij B vakjes. Er 
moet om beurten een steen geplaatst worden met de bedoeling vijf 
stenen op een rij te krijgen(Korizontaal, verticaal of Diagonaal). 
Degene die dit het eerst voor elkaar krijgt heeft gewonnen. 


Voor optimaal bedieningsgemak wordt in het programma zoveel 
mogelijk gewerkt met INKEYS. 

De stenen worden voorgesteld door een kruisje en een rondje en 
de vakjes door een kleine punt. 

Deze ‘GRAPHICS' zijn ontworpen voor de duidelijkheid. 


De waarden van deze 'GRAPKICS' worden in het Videogeheugen ge- 
POKEd in plaats van een karakter, dat toch niet gebruikt wordt. 
Dit gebeuct in programmaregel 40 en de DATA voor de karakters 
staan in regel 1180, 
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18 REM *** QUINTET **e 

20 REM INITIALISEREN 

3@ COLOR 11,1:SCREEN @:KEYOFF:WIDTH 37 

40 FOR F=3080 TO 3103:READ A:UPOKE F,A:N 

EXT F 

5@ POKE 54683! ,255 

50 DIM AC1OO),XCHI 

70 FOR F=1 TO 8 

80 FOR I=2 TO 9 

399 ACF*19+1)=1239 

100 NEXT I 

110 NEXT F 

128 FOR F=1 TO 4 

130 READ XCF) 

140 NEXT F 

159 5=130:C=131 

160 LOCATE 6,8:PRINT ”Wil jij beginnen ? 
Cj/n)” 

170 AS=INKEYS:R=RNDC1I):IF A$="" THEN 170 
180 IF A$="J" THEN 260 

198 IF A$<>"”N” THEN 170 

208 CLS 

218 FOR F=1 TO INTCRNDC1)*10)+1 

e2® READ W 

230 NEXT F 

e48 ACW)=C 

258 PLAY”V1503L32G" 

258 CLS 

27® GOSUB 950 

288 REM HOOFDPROGRAMMA 

230 PLAY”V1S5OSL32G" 

300 LOCATE @,19:PRINT SPACESCBO) 

310 LOCATE 3,19:PRINT "Waar wil je je st 

een plaatsen P” 

32@ LOCATE 17,20 

330 AS=INKEYS:IF A$="” THEN 330 

340 IF A$<"A"” OR AS>”H"” THEN 330 

350 XX=ASCCASI-6H 

358 PRINT AS; 

370 AS=INKEYS:IF A$=""” THEN 370 
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380 IF AS<”1” OR AS>”8” THEN 370 
390 PRINT A$ 

400 YY=VALCAS) 

410 G=XX*10+YY+1 

420 IF ACG)<>123 THEN 309 

430 W=S:ACG)=W 

440 GOSUB 950 

450 LOCATE @,19:PRINT SPACESCBO) 
460 LOCATE 1@,19:PRINT "Even geduld a.u. 
ad 

470 GOSUB 540 

480 GOSUB 950 

430 IF L>3 THEN LS="IK HEB GEWONNEN !!!! 
”;‚GOTO 1100 

5Q9 GOTO 300 

51% E=A 

520 E=E+N: IF ACE)<>W THEN RETURN 
530 K=K+1:GOTO 520 

540 A=G 

550 L=Q 

56® FOR X=1 TO 4:K=D:N=XOO 

570 GOSUB 510 

588 N=-N:GOSUB 510 

539@ IF K>L THEN L=K 

500 NEXT X 

51@ IF L>3 THEN L$="JIJ HEBT GEWONNEN |! 
”;GOTO 1100 

529 T=1 

630 IF T<>2 THEN W=C ELSE W=S 
640 G=0:SP=D:L=D 

650 FOR A=12 TO 89 

550 M=@ 

5670 IF ACA)<>123 THEN 780 

588 FOR X=1 TO 4:K=D:N=XOO 

638 GOSUB 510 

700 N=-N:GOSUB S1@ 

710 IF K>L THEN SP=O:L=K 

728 IF L<>K THEN 750 

738 IF T=1 AND L<4 OR CT=2 OR T=3) AND L 
<2 THEN 750 

748 M=M+1 


750 
750 
770 
780 
730 
800 
810 
B20 
830 
B40 


NEXT X 

IF M<=SP THEN 780 

SP=n: G=A 

NEXT A 

IF SP<>@ THEN 850 

T=T+1: IF T<>4 THEN 630 

A=1 

G=INTCRNDC1)*77)+13 

IF ACG)=1239 THEN 850 

A=A+1: IF A<100 THEN 820 ELSE L$="IK 


BIED REMISE AAN !”:GOTO 1100 


850 
860 
870 
880 
830 
300 
910 
928 
930 
340 


ACG)=C 
W-C:A=G:L=D 

FOR X=1 TO 4 

K=@ 

N=X CX 

GOSUB 510 
N=-N:GOSUB 510 
IF K>L THEN L=K 
NEXT X 

RETURN 

REM PRINTROUTINE 
PLAY”U1503L32G" 
LOCATE 8,0:PRINT "* * # QUINTET * « 


380 LOCATE 14,4 


9390 PRINT "12345678" 

1020 PRINT 

1018 FOR F=1 TO B:PRINT TABC12);CHRSCF+6 
est 

1828 FOR I=2 TO 3 

1830 PRINT CHRSCACF*1O+1)); 

1040 NEXT I 

1050 PRINT ” "”;CHRSCF+54) 

1050 NEXT F 

1070 PRINT 

1088 PRINT TABC14); "12345678" 

1090 RETURN 

1100 REM EINDE VAN HET SPEL 

1118 LOCATE @,19:PRINT SPACESC120) 
1128 LOCATE 8,19:PRINT L$ 
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1138 PRINT:PRINT TABCB);”Nog een keer P 
Cj/n)” 

1140 AS=INKEYS:IF AS="”” THEN 1140 

115@ IF A$="J"” THEN RUN 

1150 IF AS<>"N” THEN 1140 

117@ KEYON:CLS:END 

1180 DATA 0,0,0,32,0,0,0,0,0,136,80, 32,8 
0,135,20,0,0,112,248,215,248,112,0,0,1,9, 
10,11,34,35,44,465,47,54,55,56,57,56 
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ZEESLAG 


In dit spel hebben U en de computer 1eder een oorlogsvloot onder 
U staan. De bedoeling is de vloot van de computer tot zinken te 
brengen voordat de computer Uw vloot naar de bodem stuurt. 

Op het scherm worden twee velden getoond van ieder tien bij tien 
vakjes. 

Ket linker veld stelt de zee voor waar Uw vijand Cde computer) 
zijn vloot heeft gestationeerd, het rechter veld is Uw gebied. 
leders vloot bestaat uit 1 vliegdekschip, 1 kruiser, 1 Fregat, 1 
duikboot en 1 mijnenveger. 

Zij hebben een lengte van resp. 5,4,3,3 en 2 vakjes. 

Alvorens de strijd met de computer aan te binden moet U Uw 
schepen in Uw deel van de zee een ankerplaats geven. 

Dit gaat als volgt te werk: 

U wordt per schip gevraagd of het schip horizontaal danwel verti- 
caal moet komen liggen en vervolgens wordt U gevra het 
bijbehorende westelijkste resp. noordelijkste coordin: 
Aangezien beide vloten zijn verborgen, kunt U noch de computer 
andermans oorlogsbodems zien liggen. 

Er heerst de bekende stilte voor de storm, de spanning is ten 
top gestegen, wie zal het eerste schot lossen... 
Is het oorlogsgeweld eenmaal losgebarsten dan zullen Uw vloot en 
die van de computer elkaar om beurten bestoken met kanonvuur, 

U kunt vuren door een coordinaat op te geven, 


Een variatie op dit spel, welke U zelf in het programma kunt 
tussenvoegen, is bijv. het schieten van salvo's (bijv. 5. keer 
achtereen schieten), 
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10 REM *** ZEESLAG *=* 

29 CLEAR1000: KEYOFF : SCREENO: WIDTH4@: COLO 
R15,8,8 

30 REM INITIALISEREN 

40 RESTORE1990 

50 POKE 64583! ,255 

60 FOR F=3080 TO 3095:READ A:UPOKE F‚A:N 
EXT F 

70 DIM AC10,10),BC10,10),CC10,10),DC10,1 
0) 

80 FOR F=1 TO 10 

30 FOR I=1 TO 10 

109 ACF, 1)=129: BCF, 19=129:CCF,19=1239: DCF 
‚D=129 

110 NEXT I:NEXT F 

120 REM DE COMPUTER PLAAIST DE SCHEPEN 
130 RESTORE 2010 

140 FOR FF=1 TO 5 

150 READ SC$,AS,AA 

160 H=INTCRNDC1)*2) 

170 IF H=@ THEN 250 

180 X=INTCRNDC1)*C11-AAI) : Y=INTCRNDCID®*1 
1 

190 FOR F=OQ TO AA-1:1F DCX+F, YI 123 THE 
N 180 ELSE NEXI F 

200 IF Y>1 THEN FOR F=@ TO AA-1: IF DCX+F 
‚Y-1)>123 THEN 180 ELSE NEXT F 

210 IF Y<10 THEN FOR F=@ TO AA-1:1F DCX+ 
F‚Y+1)<>129 IHEN 180 ELSE NEXT F 

220 IF X>1 THEN IF DCX-1,Y)<>129 THEN 18 


230 IF X+AA<=1@ THEN IF DCX+AA,Y)<O 123 T 
HEN 180 

240 FOR F=@ TO AA-1:DCX+F,YJ=AS:NEXT F 
250 GOTO 330 

250 X=INTCRNDC1)®11):Y=INTCRNDC1)*C11-AA 


270 FOR F=@ TO AA-1:IF DCX,Y+F)<>1239 THE 
N 250 ELSE NEXT F 
288 IF X>1 THEN FOR F=Q TO AA-1:IF DCX-1 


‚Y+F)<>129 THEN 260 ELSE NEXT F 

230 IF X<1@ THEN FOR F=@ TO AA-1:IF DCX+ 
1,Y+F)<>1239 THEN 250 ELSE NEXT F 

300 IF Y>1 THEN IF DCX,Y-1)<>1239 THEN 26 
@ 

318 IF Y+AA<=18 THEN IF DCX,Y+AA) 129 T 
HEN 260 

328 FOR F=@ TO AA-1:DCX,Y+F)=AS:NEXT F 
330 NEXT FF 

340 RESTORE 2010 

350 GOSUB 1860 

350 REM DE SPELER PLAATST DE SCHEPEN 

370 FOR FF=1 TO 5 

388 READSCS,AS, AA 

390 LOCATEG, 18: PRINTSPACESC160) 

409 LOCATE 20-LENCSC$)/2,18:PRINT SC$ 
418 LOCATE 7,19:PRINT "HORIZONTAAL OF VE 
RTICAAL 7” 

420 AS=INKEYS:IF A$=""” THEN 420 

430 IF AS=”H" THEN H=l ELSE IF A$="U" TH 
EN H=Q:GOTO 630 ELSE GOTO 420 

440 LOCATE @,19:PRINT SPACESC120) 

450 LOCATE @,19:PRINT "Wat is het meest 
westelijke coordinaat?” 

450 LOCATE 18,20 

470 AS=INKEYS:IF AS=""” THEN 470 

4B@ IF AS<”A” OR A$>”J” THEN 470 

HID X=ASCCASI-6H 

500 IF X>11-AA THEN 470 

S1@ PRINT AS; 

520 AS=INKEYS:IF A$=""” THEN 520 

530 IF A$<”Q” OR A$>"”9” THEN 520 

540 PRINT A$ 

550 Y=VALCASI+1 

560 FOR I=@ TO AA-1:IF BCX+I,Y)<>1239 THE 
N H4@ ELSE NEXT I 

570 IF Y>1 THEN FOR F=@ TO AA-1:IF BCX+F 
‚Y-1)<>123 THEN 44@ ELSE NEXT F 

588 IF Y<1@ THEN FOR F=@ TO AA-1:IF BCX+ 
F‚,Y+19<>129 THEN 440 ELSE NEXT F 

5390 IF X>1 THEN IF B(X-1,Y)<>123 THEN 44 


45 


2 

500 
HEN 
510 
5620 
530 
540 


IF X+AA<=1@ THEN IF BCX+AA,Y)<>123 T 
440 

FOR I=@ TO AA-1:BCX+I,Y)=AS:NEXT I 
GOTO 820 

LOCATE @,19:PRINT SPACESC120) 

LOCATE @,19:PRINT "Wat is het meest 


noordelijke coordinaat?” 


550 LOCATE 18,20 

550 AS=INKEYS:IF A$="”" THEN 660 

5678 IF AS<”A” OR AS>”J” THEN 660 

580 X=ASCCAS)-54 

5390 PRINT AS; 

700 AS=INKEYS:IF AS=""” THEN 700 

710 IF A$<"@” OR A$>"S"” THEN 700 

720 Y=VALCAS)+1 

730 IF Y>11-AA THEN 700 

740 PRINT A$ 

750 FOR I=@ TO AA-1:IF BCX,Y+ID<>123 THE 
N 630 

760 IF X>1 THEN FOR F=@ TO AA-1:IF BCX-1 


‚Y+F)<>1239 THEN 638 ELSE NEXT F 
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IF X<1@ THEN FOR F=@ TO AA-1:IF BO+ 


1,Y+F)<>1239 THEN 530 ELSE NEXT F 


780 IF Y>1 THEN IF B(X,Y-1)<>129 THEN 63 
a 

780 IF Y+AA<=10 THEN IF BCX,Y+AA)<>129 T 
KEN 630 

800 NEXT 1 

810 FOR 1=@ TO AA-1:BCX,Y+ID=AS: NEXT I 
829 GOSUB 1860 

830 NEXT FF 

B40 LOCATE O,18:PRINT SPACESC120) 

850 LOCATE 8,18:PRINT ”Wil Jij beginnen 
P C/M” 

B50 AS-INKEYS:IF A$="" THEN 860 

870 IF A$="N" THEN 1090 

B89 IF A$<>"J" THEN 850 

830 REM BEURT VAN DE SPELER 

900 LOCATE @,18:PRINT SPACES(160) 

810 LOCATE 8,19:PRINT "WAAR WIL JE OP SC 


HIETEN 7” 

929 LOCATE 18,20 

930 AS-INKEYS: IF A$="" THEN 930 

340 IF AS<”A” OR AS>”J” THEN S30 

950 X=ASCCAS)-64 

360 PRINT AS;” ”; 

970 AS=INKEYS:IF AS="" THEN 970 

380 IF AS<”0” OR A$>"9” THEN 970 

330 PRINT AS 

1000 Y=VALCASI+1 

1010 IF DCX,Y)=130 THEN 900 

1020 IF DCX,Y)=128 THEN PRINT TABC12);”J 
e hebt gemist !”;SPACESC40) :ACX, Y=130:D 
CX,Y)=130:GOSUB 1860:GOTO 1030 

1030 RESTORE 2010 

1040 FOR F=1 TO S:READ SC$,AS,AA: IF AS<> 
DCX,YJ THEN NEXT F 

1050 PLAY”U1S50SLBB"”:LOCATE 10-LENCSCS)/2 
,„20:PRINT “JE HEBT MIJN ”;SC$;” GERAAKT 
15 

1050 ACX, YI=AS: DX, YI=130: RS=RS+1 

1070 GOSUB 1860 

1080 IF RS=17 THEN 1760 

1030 REM BEURT VAN DE COMPUTER 

1100 IF TL=1 THEN 1240 

1118 X=INTCRNDC1)*10)+1: Y=INTCRNDC1)*10) 


1128 CX=X:CY=Y 

1130 IF CCX,Y)<>1239 THEN 1110 

114@ GOSUB 1650 

1150 IF BCX,Y)=1239 THEN BCX,Y)=138:CCX,Y 
}=130:GOSUB 18560:GOTO 830 

115@ GOSUB 1630 

1178 CCX,Y)=AS:BCX,YI=130: RC=-RC+1 
1180 XL=0:YL=D: AC=AS:LS=AA:QQ*1:RI=1 
1130 GOSUB 1860 

1209 IF RC=17 THEN 1760 

1218 TL=1 

1220 IF RT=LS THEN TL=@ 

1238 GOTO 830 

124@ REM RAAKT DE COMPUTER IETS 7 
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1250 ON QQ GOTO 1260,1370,1470, 1580 
1258 CX=CX-1:XL=XL+1 

1270 IF CX<1 THEN QQ=QQ+1:CX=CX+XL : XL=0: 
GOTO 1249 

1280 IF CCCX,CY)=130 THEN QQ=Q0+1:CX=CX+ 
XL:XL=0:GOTO 1240 

1290 GOSUB 1650 

1300 IF CCCX,CY)=123 AND BCCX,CY)=123 TH 
EN CCCX,CY)=130: BCCX,CY)=130: AQ=QQ+1: CX= 
CX+XL: XL=0: GOTO 1190 

1310 GOSUB 15690: CCCX,CYJ=AC: BCCX, CY2=130 
:RC=RC+1: RT-RT+1 

1320 IF CY>1 THEN CCCX,CY-19=130:C(CX+XL 
‚CY-1)=130 

1330 IF CY<1® THEN CCCX,CY+19=130: CCCX+X 
L,‚CY+1)=130 

1340 IF RT=LS THEN IF CX>1 THEN CCCX-1,C 
Y)=130 

1350 IF RT=LS THEN IF CX+XL<10 THEN CCCX 
+XL+1,CY)=130 

1350 GOTO 1190 

1370 CX=CX+1:XL=XL+1 

1380 IF CX>10 THEN QQ=QQ+1: CX=CX-XL : XL=0 
:GOTO 1240 

1390 IF CCCX,CY)=130 THEN QQ=QQ+1: CX=CX- 
XL:XL=@:GOTO 1240 

1400 GOSUB 1650 

1410 IF CCCX,CY)=123 AND BCCX,CY)=129 TH 
EN CCCX,CY)=130:BCCX,CY)=130: OQ=QO+1: CX= 
CX-XL:GOTO 1190 

1429 GOSUB 1590: CCCX,CY)=AC: BLCX, CY)=130 
-RC=RC+1 : RT=RT+1 

1430 IF CY>1 THEN CCCX,CY-19=130: CCCX-XL 
‚CY-19=130 

1440 IF CY<10 THEN CCCX,CY+19=130:CCCX-X 
L,‚CY+1)=130 

1450 IF RI=LS THEN IF CX+1<10 THEN CCCX+ 
1,CY)=130 

1469 GOTO 1190 

1470 CY=CY+1:YL=YL+1 

1480 IF CY>10 THEN QQ=QQ+1:CY=CY-YL:YL=0 


:GOTO 1249 

1490 IF CCCX,CY)=130 THEN QQ=QQ+1:CY=CY- 
YL:YL=0:GOIO 1249 

1500 GOSUB 1650 

1510 IF CCCX,CY)=1239 AND BCCX,CY)=123 TH 
EN CCCX,CY)=130:BCCX,CY)=130: QQ=00+1:CY= 
CY-YL:YL=@:GOTO 1190 

1520 GOSUB 1690: CCCX,CY)=AC: BCCX, CY)=130 
:RC=RC+1: RT=RI+1 

1530 IF CX>1 THEN CCCX-1,CY)=130:CCCX-1, 
CY-YL)=130 

1540 IF CX<10 THEN CCCX+1,CY)=130: CCCX+1 
„CY-YL)=130 

1550 IF RI=LS THEN IF CY-YL>1 THEN CCCX, 
CY-YL-1)=130 

1560 IF RT=LS THEN IF CY+1<10 THEN CCCX, 
CY+1)=130 

1570 GOTO 1190 

1580 CY=CY-1 

1590 GOSUB 1650 

1600 GOSUB 1690:CCCX,CY)=AC: BCECX, CY)=130 
-RC=RC+1: RT=RT+1 

1610 IF CX>1 THEN CCCX-1,CY)=130:CCCX-1, 
CY-YL)=130 

1620 IF CX<10 THEN CCCX+1,CY)=130: CCCX+1 
„CY-YL)=130 

1630 IF RI=LS THEN IF CY>1 THEN CCCX,CY- 
19-130 

1640 GOTO 1190 

1650 REM WAAR WORDT ER OP GESCHOTEN? 
1660 LOCATE @,18:PRINT SPACESC160) 

1670 LOCATE 12,19:PRINT "Ik schiet op "; 
CHRSCCX+5HD ; CY-1 

1680 RETURN 

1690 REM WAT WORDT ER GERAAKT 7 

1700 RESTORE 2010 

1710 FOR FF=1 TO 5 

1720 READ SCS,AS,AA 

1730 IF BCCX,CY)>AS THEN NEXT FF 

1740 PLAY”U1503L8C":LOCATE 10-LEN(SCS)/2 
„20:PRINT "IK HEB JOUW ”;SCS;” GERAAKT 
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1750 RETURN 

1760 REM EINDE VAN HET SPEL 

177@ LOCATE @,18:PRINT SPACESC120) 

1788 IF RC=17 THEN A$="Ik heb gewonnen 
1” ELSE A$="Jij hebt gewonnen !” 

1790 LOCATE 4,18:PRINT "Alle hens in de 
reddingsboten...” 

1800 PRINT TABC11);AS 

1810 PRINT TABCH);”Wil je nog een spelle 
tje P Cj/m)” 

1829 AS=INKEYS:IF A$="" THEN 1820 

1830 IF A$="J" THEN RUN 

1849 IF AS<>"N"” THEN 1820 

185@ KEYON:WIDTH 37:POKE 64683! ,@: END 
1868 REM PRINTROUTINE 

187® LOCATE 10,@:PRINT "* * «* ZEESLAG * 
id 

1888 LOCATE 8,3:PRINT "ABCDEFGHIJ ABCD 
EFGHIJ"” 

1898 LOCATE 8,16:PRINT "ABCDEFGKHIJ ABC 
DEFGHIJ” 

1309 FOR F=@ TO S 

1318 LOCATE 5,F+5:PRINT F:LOCATE 18,F+S: 
PRINT F:LOCATE 31,F+5:PRINT F 

1320 NEXT F 

1339 FOR F=1 TO 18 

194@ FOR I=1 TO 10 

1395@ LOCATE 7+F,4+I:PRINT CHRSCACF, ID) 
1950 LOCATE 20+F,4+I:PRINT CHRSCBCF, ID) 
1970 NEXT I:NEXT F 

138% RETURN 

1930 DATA 0,0,0,32,0,0,0,0 

2000 DATA 0,0,80,32,80,0,0,0 

2018 DATA VLIEGDEKSCHIP,86,5 

2020 DATA KRUISER, 75, 4 

2030 DATA FREGAT,70,3 

2040 DATA DUIKBOOT,68, 3 

2050 DATA MIJNENVEGER, 77,2 
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MSX—MIND 


HSX-MIND is gebaseerd op het bekende mastermind, c_ hier 
bestaat de geheime code uit 4 cijfers, Bij het begin van het 
spel wil de MSX van U weten wit hoeveel cijfers hij mag kiezen 
Cmin.6 en max.9), De bedoeling is om in 1@ beurten achter de 
geheime code te komen. 

Heeft U een cijfer goed geraden, r niet op de juiste plaats 
binnen de code, dan wordt dit achter CIJFER aangegeven. 

Heeft U een cijfer goed geraden en bovendien op de juiste plaats 
binnen de code, dan wordt dit achter PLAATS aangegeven. 
Samen geven ze aan hoeveel cijfers van de code U reeds 
heeft. 

Ket intoetsen geschiedt met INKEYS, zodat U alleen maar de 
cijfers hoeft in te toetsen zonder RETURN. Als U een code heeft 
ingevoerd wordt U gevraagd of U denkt dat dit volgens U de code 
is. Toetst U nu Nee) in dan kunt U de code nog corrigeren. 


Met een keuze uit 6 cijfers voor de computer is nog vrij snel de 
code te ontcijferen binnen 10 beurten. Probeert U maar eens een 
keuze uit 9 cijfers voor de computer, dan is 1@ beurten vaak 
niet genoeg ! 
Veel plezier. 
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REM 


“en MSX-MIND sen 


KEYOFF : COLOR12,1,1:SCREENO:WIDTH4+O 
3@ DIM GCII,SCHI,CCS) 

REM HOOFDPROGRAMMA 

58 CLS 
60 PLAY"”M&@OOS1OSLISCEDFLEB": LOCATEG, 9 
PRINT "Aantal cijfers ? (6-39)” 

80 AS=INKEYS:F=RNDC-TIME): IF A$="" THEN 


IF AS<"”"6” 


OR A$>”3"” THEN 80 


PLAY ”M&SSSBELBCEGB" : F=VALCAS) : FA=F 


CLS 


LOCATE 10,0:PRINT "MS X - MIND" 
FOR I=1 TO 9:GCIJ=I:NEXT 

FOR I=t TO 3 

L=INTCRNDC-TIME)*F)+1: IFL>FGOTO150 


SCIJ=GCLD 


IF L<>F THEN GCL)=GCF) 


FeR=L 
NEXT 
B=1 


REM SCHERM-LAYOUT 
FOR F=4 TO 6 STEP 2 
FOR I=S TO 27 STEP 2 
LOCATE I,F:PRINT ”.” 
NEXT: NEXT 

FOR F=3 TO 15 STEP 2 
FOR I=9 TO 27 STEP 2 
LOCATE I,F:PRINT "+" 


NEXT: NEXT 


LOCATE 9,18:PRINT "X 98 7 6 5 4 3 2 


LOCATE 2,4:PRINT ”Cijfer” 
LOCATE 2,6:PRINT "Plaats” 
FOR 1=S IO 15 STEP 2 
LOCATIE S5,I:PRINT *?” 


NEXT 


REM CODE RADEN 
LOCATE O,21 


PRINT 


Toets je code in. 


390 
400 
410 
420 
430 
HHD 
450 


FOR J=1 TO 4 

LOCATE 23-2*B,7+2*J 

PRINT ”+”:NEXT 

FOR J=1 TO 4:CCJ)=O: NEXT 
FOR J=1 TO 4 

IF INKEYS<>”” THEN 44@ 
AS=INKEYS: IF A$=""” THEN 450 


4560 IF A$<”1” OR VALCAS)>FA OR VALCASI=D 
THEN 450 
H7@ C(J)=VALCAS) : PLAY"MEOOOSILIEOSF" 


480 
430 
500 
510 
520 
530 
540 


FOR K=1 TO J-1 

IF CCJ)=CCK) AND J<>K THEN 44@ 

NEXT 

LOCATE 28-2*B,7+2*J:PRINT CCJ) 

NEXT 

LOCATE @,21 

PRINT ” Denk je dat dit de code is 7 


Cj/m 


550 
560 
570 
580 
530 
500 


510 
528 
530 
540 
550 
550 
570 
580 
590 
700 


710 
720 
730 
740 


IF INKEYS<>"”” THEN 550 
AS=INKEYS:IF A$="" THEN 560 

IF AS="N" OR A$="n” THEN 360 

IF A$<>"”J"” AND AS<>"j” THEN 550 
PLAY”CEGB": LOCATE @,21 

PRINT * 


REM RESULTAAT 

K=D:P=D 

FOR J=1 TO 4 

FOR I=1 TO 4 

IF SCJ)=CCI) AND J=I THEN P=P+1 
IF S(J)=CCI) AND J<>I THEN K=K+1 
NEXT: NEXT 

GOTO 710 

LOCATE @,21 

PRINT ” 


LOCATE 28-2*B,4:PRINT K 
LOCATE 28-2*B,6:PRINT P 
IF P=4 THEN 760 

B=B+1:IF B=11 THEN 800 
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750 GOTO 360 

758 REM EINDE VAN HET SPEL 

770 LOCATE e‚e 

780 PRINT ”JE HEBT DE CODE ONTCIJFER 


730 PLAY”L4BLSGDL4+E":GOTO 820 
829 LOCATE 9,2 
B18 PRINT ”JE HEBT DE CODE NIET ONT 
CIJFERD" 
B29 FOR F=1 TO 4 
830 LOCATE 4,7+2*F:PRINT SCF) 
B4O NEXT 
B5@ LOCATE @,21 
B58 PRINT ” Wil je nog een spelletje 7 
Cj/nd ze 
870 IF INKEYS<>”” THEN 870 
880 AS=INKEYS:IF A$="" THEN 880 
830 IF A$="J" OR A$="j” THEN LOCATE 0,3: 
PRINT ” 
”:;GOTO 40 
300 IF AS<>"N” AND AS<>”n” THEN 880 
910 PRINT:PRINT 
320 LOCATE 8,23 
930 PRINT ”T O T 2tENS? 
940 FOR F=1 TO 21 
950 FOR I=1 TO 5O:NEXT 
950 PRINT 
3970 NEXT 
988 KEYON:COLORIS, 4, +: END 
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OTHELLO 


Dit spel dat ook bekend is als reversi is oorspronkelijk een 
bordspel, maar is inmiddels voor vele computers geschikt 
gemaakt. Het doel van het spel is om zoveel mogelijk stenen van 
de tegenstander Cin dit geval de computer) te veroveren. 

Degene die op het einde van het spel (= als alle 64 vakken bezet 
zijn) de meeste stenen bezit, 15 winnaar. 

U kunt alleen zetten als U teminste 1 steen van de tegenstander 
insluit tussen de steen die U zet en een reeds aanwezige steen 
van U. 

Het programma is zo gemaakt dat hij ongeldige zetten niet 
accepteert. 

De stenen die U met Uw zet insluit worden van U. 

De zetten van U alsook die van de computer komen op het scherm 
alsmede de tussenstand. Nadat het spel beeindigd is geeft de 
computer aan wie er gewonnen heeft, 


Veel plezier. 
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19 REM *+e* OTHELLO ee 

2@ PLAY"UISMEOQOSILBOSEGGEFEDAAFECDELSDE 
O4SSLIG", "V1SMEOOOS1LBOZAADEFEGGEFECDELH 
DEO2SSLIG" 

30 SCREENG:WIDTH37 

4@ REM INITIALISEREN 

5@ DIM AC1@@):DIM DCBI:DC1)=11:DC2I=10:D 
(3)=9:DCHI=1:DCS)=-1:DCEI=-S:DC7I=-10: DC 
8)=-11 

58 M=-1:U=1:ACHS)=M: ACSE)=M: ACHE)=U: ACSS 
>= 

70 DS=SPACESC32) 

B9 QS="eventjes nadenken” 

90 COLOR 15,4,4 

100 KEYOFF 

118 GOTO 1040 

128 REM ZOEK- EN INUUL-ROUTINE 

139 S=@ 

14@ IF NOT ACP)=@ THEN RETURN 

15@ IF E=1 THEN GOSUB 310 

15% FOR I=1 TO 8 

170 J=1 

180 Q=P 

138 2=DCID 

200 Q=Q+2 

218 IF ACQ)=@ THEN GOTO 270 

228 IF ACQ)=T THEN GOTO 250 

238 J=J+1 

240 GOTO 200 

250 S=S+J-1 

250 IF E=1 THEN GOSUB 400 

270 NEXT 

289 IF E=1 THEN SU=SU+S*CT=U)-S5*CT=M) : SM 
=SM+S5*CT=M)-5*CT=UD 

230 IF E=1 THEN GOSUB 4390 

300 RETURN 

318 IF T=U THEN A$="*":BS="Jouw ” 

328 IF T=M THEN A$="C":BS="Mijn ” 

330 IF T=M THEN FOR K=2 TO 18:LOCATE 31, 
K:PRINT ” ”:NEXT 
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340 


PLAY"VISL320SF":LOCATE @,1S5:PRINT B5 


:PRINT ”zet:”:PRINT R;CHRSCC+64) 


350 
360 
370 
380 
330 
400 
410 
420 
430 
HD 
450 
460 
470 
480 
430 
500 
510 
520 
530 
540 
SU) 
550 
560 
570 
580 
530 
500 
510 
520 
530 
640 
650 
550 
670 
580 
530 
700 
710 
720 


ACP)=T 

LOCATE 9+2*C,2+2*R:PRINT A$ 
SU=SU+1*CT=UD 

SM=SM+1*CT=MD 

RETURN 

REM STENEN VERANDEREN 

FOR U=1 TO J 

W=P+U*DCID 

ACWI=T 

R=INTCW/10) 

C=W-1-10*R 

LOCATE 3+2*C,2+2*R:PRINI A$ 
NEXT 

RETURN 

REM SUBROUTINE VOOR DE STAND 
IF U$="99"” THEN 540 

FOR I=@ TO @ 

LOCATE @,18+I:PRINT D$ 

NEXT 

LOCATE 5,20:PRINT "Jij hebt er”;ABSC 
” Ik heb er”;ABSCSM) 

RETURN 

REM DE COMPUTER IS AAN DE BEURT 
N=@ 

E=@ 

Ten 

FOR R=1 TO 8 

FOR C=1 TO 8 

P=1l+C+10*R 

GOSUB 120 

IF S<N THEN GOTO 680 

IF S+INT CRNDC1)*2)=N THEN GOTO 680 
N=5 

X=P 

NEXT 

NEXT 

IF N=@ THEN GOTO 760 

En] 

P=X 
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730 R=INT CP/10) 

740 C=P-1-10*R 

75@ GOSUB 120 

750 IF N=@ THEN LOCATE @,3:PRINT "Ik kan 
”;LOCATE @,5:PRINT ”geen zet”:LOCATE @,7 
:PRINT ”doen! ”:GOSUB 490 

770 IF U$="” AND N=@ THEN GOTO 1270 

788 IF SM+SU=-64 OR SM*SU=@ THEN GOTO 12 


790 REM DE SPELER IS AAN DE BEURT 
800 IF US="”"” THEN LOCATE 3,21:PRINT DS 
B18 LOCATE 5,21:PRINT "Jouw beurt Cbv.BA 


828 U$S=-"":LOCATE 24,21: INPUT U$: IF U$=”3 
3” THEN GOTO 1010 

B38 REM CONTROLE VAN HET INGEVOERDE 

84@ IF LENCUS)<>2 THEN GOTO 820 

858 IF LEFTSCUS,1)<"”1" OR LEFTSCUS,1)> "B 
” THEN GOTO 820 

B5@ IF ASCCMIDSCUS,2,1D)<ASCC"A") OR ASC 
CMIDSCUS,2,1))>ASCC"H") THEN 820 

878 IF N=@ THEN LOCATE @,3:PRINT ” 
”;LOCATE @,S5:PRINT ” ”;LOCATE @,7 
:PRINT ” id 

880 REM DE WAARDE INVULLEN 

8398 R=ASCCUS)-48 

300 CS=MIDSCUS,2,1) 

918 C=ASCCCH)-54 

920 P=1+C+10*R 

930 T=U 

940 E=Q 

958 GOSUB 120 

360 IF S=Q THEN 820 

370 E=1 

382 GOSUB 120 

990 REM EINDE VAN HET SPEL 7 

1008 IF SM+SU=-64 OR SM*SU=@ THEN 1270 
1819 IF U$="39" THEN LOCATE 4,21:PRINT ” 
JE HEBT JE BEURT VERSPEELD !”:GOSUB 490 
1028 FOR K=1 TO 17:LOCATE 31,K+1:PRINT M 
IDSCQS,K,1):NEXT 
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1839 GOTO S&@ 

1042 REM SCHERM-LAYOUT 
1050 N=1 

1052 PRINT 

1078 SU=@: SM-@ 

1088 PRINT:PRINT TABC11);”"A B CDE F G 
HP 

10398 FOR R=1 TO 6 

1108 PRINT 

1118 PRINT TABC7);R; 
1128 FOR C=1 TO 8 

1130 X=AC1+C+10*R) 


1140 IF X=M THEN PRINT " ”;"C*"; 
1158 IF X=U THEN PRINT ” ”;"#”; 
116® IF X=@ THEN PRINT ” ”;CHRSC219); 


1178 SU=SU+1*CX=UD 

1188 SM=SM+1*CX=MD 

11390 NEXT C 

1200 PRINT 

1218 NEXT R 

1228 LOCATE @,@:PRINT "CCCCC=Computer 
Jij=vennen 

1238 FOR K=1 TO 14:LOCATE 29,K+2:PRINT M 

IDSC2S,K,1);” ”:NEXT 

1240 LOCATE 5,20:PRINT "Jij hebt er”;ABS 

CSU);” Ik heb er”;ABSCSM) 

125@ GOTO 790 

1250 PLAY”VISM5OOOS1LBO4EGGEEGGEEGGAAFFA 

BBOSDCLS4C" 

1278 LOCATEG, 13: PRINTSPACESC37) : LOCATE1, 

13 

12808 IF SM<Su THEN, „PRINT "IK HEB GEWONNE 

NIEL 


123@ IF SMm>Su THEN, „PRINT zi GEFELICITEE 
RD!!! 

1308 IF Sm=SU THEN, „PRINT ia GELIJK SPE 
Litre 


1310 LOCATE ©, 21: PRINT “NOG EEN SPEL P C 
J/N)” 

1320 Q$=INKEYS:IF Q$="” THEN GOTO 1320 
1330 IF Q$="J” THEN RUN 
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1340 IF Q$<>”N” THEN 1320 
135@ KEYON: END 


PH-MSX Schuifpuzzel) 


Een schuifpuzzel met twee mogelijkheden. De bekendste en tevens 
de eenvoudigste om op te lossen is de puzzel met letters, 
waarbij U de letters in alfabetische volgorde moet schuiven. 

De mooiste maar ook de moeilijkste is de PH-MSX waarbij de af- 
beelding op de puzzel een heteluchtballon 1s. 

Het schuiven van de puzzelstukken kunt U doen d.m.v joystick of 


cursortoetsen. 
Bij het begin van het spel kiest U welke puzzel U wilt oplossen 


en het aantal stappen, waarmee de puzzel door elkaar wordt 
geschoven (max.200 stappen). 

Begint U eerst eens met de letterpuzzel en als dit goed lukt 
probeer dan eens de PH-MSX, 

Er is een mogelijkheid ingebouwd om met Funktietoets Fl de 
originele afbeelding op te roepen, zodat U kunt nagaan of U wel 
op de goede weg bent met Uw oplossing. 

Na F1 kunt U verder met de puzzel door een willekeurige toets in 
te drukken. 
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10 REM *** PH-MSX PUZZEL *** 
20 KEYOFF:WIDTH37 : SCREENO: COLOR11,1,1 

30 PRINI” ** eee PH-ISX «ee 
„en 

HO REM INITIALISEREN 

5@ RESTORE1070 

5@ DIM LC224),SCIGO) :XX=74 

70 FOR F=2568 TO 2783:LCF-2567)=UPEEKCF) 
:NEXT F 

B ON KEY GOSUB 820:KEY C1) ON 

9@ LOCATEIO,S:PRINT "Joystick ? (J/N)” 
100 AS=INKEYS:IF A$S="" THEN 100 

110 IF A$="J" OR A$="j" THEN N=1:GOTO 14 

@ 

120 IF AS<>"N" AND A$S<>"”n” THEN 100 

130 N=@ 

140 LOCATE 10,S9:PRINT "1 = BALLON” 

15@ LOCATE 10,10:PRINT "2 = KARAKTERS” 
150 AS=INKEYS:IF AS="”” THEN 150 

170 IF A$=”1” THEN BA=1:GOTO 200 

180 IF A$<>"2” THEN 160 

190 BA=@ 

200 LOCATE S,14:INPUT "Aantal stappen C1 

200) ";ST 

218 IF ST<1 OR ST>200 THEN 200 

220 SCREEN 2,1:0PEN "GRP:” AS #1 

230 IF BA=1 THEN 300 

2e4o 2-0 

25@ FOR F=1 TO 209 STEP 8 

250 2=2+1 

270 SPRITESCZ)=CHRSCLCFJ)+CHRSCLCF+1)+C 
HRSCLCF+2))+CHRSCLCF+3))+CHRSCLCF+H))+CH 

RSCLCF+5))+CHRSCLCF+6))+CHRSCLCF+7I) 

280 NEXT F 

230 GOTO 340 

300 FOR F=l TO 27 

310 READ Q,W,E,R,T,Y,‚U,I 

320 SPRITESCF)=CHRSCQ)+CHRECWI+CHRECE)+C 

HRSCRI+CHRSCT) +CHRSCY)+CHRSCUI+CHRECI 
330 NEXT F 
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340 


K=l 


350 FOR F=19 TO 70 STEP 10 

3560 FOR J=1 TO 4 

370 SCF+J)=K 

380 K=K+1 

330 NEXT J 

300 NEXT F 

410 LINE CB8,19)-C155,134),5,B 

420 FOR F=36 IO 116 STEP 16 

430 LINE CB6,F)-(B7,F),S:LINE C156,F)-C1 
57,F),;5 

4D NEXT F 

450 FOR F=106 TO 138 STEP 16 

4560 LINE CF,17)-CF,18),S:LINE CF,135)-CF 
‚135),5 

470 NEXT F 

480 PSET C68,3),1:PRINT #1,"”F1 = ORIGINE 
EL” 

430 REM PUZZEL VERSCHUIVEN 

500 FOR F=1 TO ST 

518 R=INTCRNDC-TIME)*S) 

528 ON R GOTO 530,540,550, 560 

530 IF SCXX-18)<>@ THEN SWAP SCXX),SCXX- 
10):XX=XX-10:GOTO 570 ELSE S10 

540 IF SCXX+1)<>0 THEN SWAP SCXXI,SCXX+1 


):XX=XX+1:GOTO 570 ELSE 510 


550 


18): 


560 


IF SCXX+10)<>@ THEN SWAP SCXX),SCXX+ 
XX=XX+10:GOTO 570 ELSE S10 
IF SCXX-1)<>@ THEN SWAP SCXX),SCXX-1 


J:XX=XX-1:GOTO 570 ELSE 510 


570 


NEXT F 

REM PUZ22EL TEKENEN 
2-20 

FOR F=11 TO 71 STEP 10 


FOR I=@ TO 3 
PUT SPRITE SCF+I),CI*16+398,2),4,SCF+ 


NEXT I 
Z=2+16 
NEXE F 
REM IS DE PUZZEL OPGELOST 7 
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5670 2=0 

589 FOR F=18 TO 7@ STEP 10 

698 FOR I=1 TO 4 

700 Z=2+1 

718 IF SCF+I)<>Z THEN 750 

720 NEXT 1 

730 NEXT F 

740 GOTO 1000 

750 REM EEN VLAK VERSCHUIVEN 

758 IFSTICKCN)=@GOTO7EG 

770 IF STICKCN)=5 THEN IF SCXX-10)<>@ TH 
EN SWAP SCXX),SCXX-10) : XX=XX-10 

780 IF STICKCN)=7 THEN IF SCXX+1)<>@ THE 
N SWAP SCXX),SCKX+1D: XX=XX+1 

7390 IF STICKCN)=1 THEN IF SCXX+10)<>0 TH 
EN SWAP SCXX),SCXX+10) : XX=XX+10 

899 IF STICKCN)=3 THEN IF SCXX-1)<>@ THE 
N SWAP SCXX),SCXX-1D:XX=XX-1 

B1@ GOTO 580 

828 REM ORGINEEL PRINTEN 

B30 2=20 

842 FDR F=1 TO 25 STEP 4 

850 FOR I= TO 3 

B5@ PUT SPRITE F+I,CI*16+90,2),4,F+I 

870 NEXT I 

880 2=2+16 

830 NEXT F 

300 IF INKEYS<>”” THEN 900 

918 IF INKEYS="" THEN 910 

329 2=20 

939 FOR F=11 TO 71 STEP 10 

40 FOR I=@ TO 3 

950 PUT SPRITE SCF+I),CI*16+38,2),4,SCF+ 
18) 

950 NEXT I 

970 2=2+16 

980 NEXT F 

39390 RETURN 

1000 REM DE PUZZEL IS OPGELOST 

1010 PSET C47,180),1 

1920 PRINT #1,”Nog een keer Pf (j/n)” 


1030 AS=INKEYS:IF A$="" THEN 1030 

1040 IF A$="J" OR A$="j" THEN SCREENO: RU 
N40 

1050 IF A$<>"N" AND AS>”n” THEN 1030 
1059 COLOR1S, #, 4: KEYON: SCREENO: END 

1070 DATA 0,0,3,7,15,31,31,63,15,255,255 
„255,255,255,255,255,240,255,255,255,255 
‚255,255,255,0,0,192,224,240,248,248,252 
1089 DATA 63,127,127,255,255,248,250, 248 
„255,255,255,255,255,175,175,137,255,255 
„255,255,255,81,23,391,252,254,254,255,25 
5,95,95,191 

1030 DATA 251,251,255,191,191,1539,1539,14 
3,175,175,255,255,255,255,255,255,33,81, 
255,255,255,255,255,255,95,95,255,253,25 
3,243, 243, 241 

1100 DATA 143,135,135,131,67,55,65,64,25 
5,255,63,199,248,255,255,255,255,255,252 
„227,31,255,255,255,241,225,225,193,184, 
130, 130,2 

1110 DATA 64,32,32,32,32,16,16,16,255,97 
„127,63,63,31,31,15,255,134,254,252,252, 
248,248,240,2,4,4,4,4,8,8,8 

1120 DATA 8,8,4,4,2,1,0,0,8,8,9,9,15,8,1 
36,104,16,16, 144, 144,240,144,17,22,16,16 
‚32,32,64,128,0,0 

1130 DATA 0,0,0,0,1,2,4,8,24,53,85,159,3 
1,31,21,53,24,252,158,248,248,248,158,25 
e 
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SEARCH AND RESCUE 


Search and Rescue wil zoveel als zoek en red. In dit spel gaat 
het om het zoeken en redden van verschillende wezens, die ver- 
dwaald zijn in het moeras. 

Boven op het moeras ligt een dunne korst aangekoekte modder waar 
U over kunt lopen. De korst bezwijkt echter onder Uw gewicht, 
zodat U niet meerdere malen van hetzelfde pad gebruik kunt 
maken.Het pad dat U gevolgd heeft wordt op het scherm afgebeeld. 
De wezens kunt U redden door er heen te gaan en ze aan te raken. 
Een aardig aspekt van dit spel 15, dat U zowel horizontaal 
verticaal als diagonaal over het scherm kunt bewegen Een een- 
maal ingezette beweging blijft doorgaan, want U kunt in dit 
moeras niet stil blijven staan, U zou onmiddelijk wegzakken. 
Komt U bij de rand van het moeras aan, dan wordt de beweging om- 
gekeerd. 

Er 1s een bepaalde taktiek om tot hoge scores te komen, probeer 
daar maar eens achter te komen. 

Veel plezier, 
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REM * #* « SEARCH AND RESCUE * * « 
KEYOFF : SCREENG: WIDTH37 : COLOR11,1,1 
PRINI” =eeee SAR … 
Gn 

REM INITIALISEREN 

ON SPRITE GOSUB 800 

COLOR 11,1,1 

OPEN ”GRP:” FOR OUTPUT AS #1 
LOCATE10,S 


90 PRINT "Joystick ? CJ/N)” 

100 AS=INKEYS:R=RNDC-TIME): IF A$="”*” THEN 
100 

110 IF A$="J" OR A$="j" THEN N=1:GOTO 14 

Vz} 

128 IF A$<>"N" AND AS<>”n” THEN 100 

130 N=@ 

140 PLAY”VISOSL32D":LOCATE 12,12 


15@ PRINT "Stage ? C1-5)” 


150 


AS=INKEYS: IF AS="" THEN 160 


170 IF A$<”1” OR AS>”5” THEN 150 


188 PLAY”OSL32D”: Q=VAL CAS) 
198 IF Q>5 THEN Q=5 
200 SCREEN e‚2 


218 GOSUB 720 


220 


REM SCHERM-LAYOUT 


230 LINE C@,191)-C255,184),5,BF 


240 


LINE C@,16)-(255,23),5,BF 


250 LINE C@,183)-(7,24),5,BF 


250 


LINE C248,183)-(255,24),5,BF 


270 C=4:REM C=SNELHEID 


280 


FOR F=1, 10 5 


290 HCF)=INTCRNDC-TIME)*3-1)*C: IF HCF)=@ 
THEN 230 

300 UCF)=INTCRNDC-TIME)*3-1)*C: IF UCF)=@ 
THEN 300 

318 XCF)=INTCRNDC-TIME)*205+25) 

320 YCF)=INTCRNDC-TIME)*140+25) 

330 NEXT F 

340 FOR F=1 TO S 

350 IF F<=Q THEN PCF)=F ELSE P(F)=S 
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360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
450 
470 
480 
430 


500 
510 
520 
530 
540 
550 
560 
570 
580 
530 
500 
610 
620 
530 


NEXT F 


A=C: 


B=C 


MX=16:MY=32: WX=MX: WY=MY 


REN 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
REM 


IF 
IF 
IF 
1E 


ZET DE 
SPRITE 
SPRITE 
SPRITE 
SPRITE 
SPRITE 
SPRITE 


SPRITES ERGENS NEER 
O, CMX,MY), 3,0 

1, CXCID,YC1DD,5, PCI) 
2, XC2),YC2I),7,PC2) 
3, XCJ, YI, 9, PCI 
B, CXCHI, VCH, 2, PCH) 
5,CXC5),YC5),B, PCS) 


RAAKT KET MANNETJE EEN WAK? 

IF POINT CMX+4,MY+4)=13 THEN 880 

REM TEKEN HET WAK 
PLAY”M63758L3203D":LINE CWX+2,WY+2)- 
CWX+5,WY+5),13,BF 

WX=MX : WY=MY 
SPRITE ON 
REM BESTURING VAN HET MANNETJE 


STICKCN)=1 THEN 
IF STICKCN)=2 THEN 
STICKCN)=3 THEN 
IF STICKCN)=4 THEN 
STICKCN)=5 THEN 
IF STICKCN)=6 THEN 
STICKCN)=7 THEN 


IF STICKCN)=8 THEN A=-C:B=-C 

REM BESTURING VAN DE SPRITES 

FOR F=l TO 5 

IF XCF)+HCF)<B OR XCF)+HCF)>242 THEN 
HCFD=HCFD*-1: UCF)=INTCRNDC-TIME)*3-1)*C 

640 IF YCF)+UCF)<24 OR YCF)+UCF)>178 THE 

N UCF)=UCF)*-1: HCF)=INTCRNDC-TIME)*3-1)* 


XCPD=XCPHI+HCFD : YCFD=Y CFD +UCFD 
NEXT F 
IF MX+A<B OR MX+A>242 THEN A=A*-1 
IF MY+B<2t OR MY+B>178 THEN B=B*-1 
REM BEREKEN NIEUWE COORDINATEN 
MX=MX+A: MY=MY+B 

GOTO 390 
REM SPRITES OPZETTEN 


730 SPRITESCOI=CHRSC2HI+CHREC2HI+CHREC2S 
5)+CHRS CEO) +CHRSCEO) +CHRSC3E) +CHRSCIEI+C 

HRS C36) 

740 SPRITESC1)=CHRSC24) +CHRSCEO+CHRSCLE 

6) +CHRSC90)+CHRSC126)+CHRSC127)+CHRSC126 
)+CHRSC1B4) 

750 SPRITESC2)=CHRSCO)+CHRSCEON+CHRSC125 
)+CHRSC120)+CHRSC112)+CHRSC126) +CHRSCEO) 

+CHRSCO) 

760 SPRITESC3)-CHRSCGEI+CHRSC102)+CHREC1 

26)+CHRS CIO) +CHRSC 125) +CHRSCEOI +CHRS 24) 

+CHRSC24) 

770 SPRITESC4)=CHR$ CO) +CHRSC2H) +CHRSCEOI 

+CHRS CIO) +CHRSC126)+CHRS CIE) +CHRSC2H) +CH 

RSCO) 

780 SPRITESCS)=CHRSC24)+CHRSC125)+CHRSC2 

55)+CHR$C129)+CHRSC255)+CHREC126) +CHRSC2 

4)+CHRSCOD 

730 RETURN 

800 REM BOTSING VAN DE SPRITES 

810 FOR F=1 TO Q 

B29 IF MX>XCF)-7 THEN IF MX<XCF)+7 THEN 
IF MY>YCF)-7 THEN IF MY<YCF)+7 THEN PCF) 

=10 

830 NEXT F 

B40 ST-0 

859 FOR F=1 TO Q: IF PCF)<>F THEN ST=ST+1 
:NEXT F 

B6@ IF ST-Q THEN PLAY”M6O00S104L1SCDEDEF 
EFGAOSDO4GLBOSC”: SC=SC+Q:Q=Q+1:FOR F=l T 

O 400:NEXT F:G0TO 190 

870 SPRITE OFF :RETURN 

B80 REM HET MANNEIJE KOMT IN EEN WAK 

890 PLAY”M679S14L1603BAGEAGFDGFECLEC” 

300 FOR F=1 TO Q:IF PCF)<>F THEN SC=SC+1 

310 NEXT F 

920 PSET C90,0),1:PRINT #1,”Score:”;SC*1 

a 

930 PSET C50,8),1:PRINI #1,”Nog een keer 
P C/M” 

940 AS-INKEYS:IF AS="" THEN 940 
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950 IF AS="J” OR AS=”"j” THEN SCREEN @:SC 
=@:GOTO 140 

350 IF AS<>”"N” AND AS<>”n” THEN S4@ 

370 SCREEN@:COLORIS, 4, 4: KEYON: END 
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PN THON 


Bij dit spel moet U een slang voor een zekere dood behoeden. En- 
kele persoonlijke gegevens van de slang: vraatzuchtig, groeit 
zeer snel, is dom en blijft lach 
B1j het begin van het spel vraagt de computer of U over een joy- 
stick beschikt en welke moeilijkheidsgraad U wenst (hoe hoger de 
graad, hoe sneller de slang groeit), 

Er verschijnt vervolgens een veld vol met stukjes voedsel, welke 
U de slang moet laten opeten. Let daarbij op het volgende: de 
Slang mag de rand van het veld niet raken (giftig) en het 1s 
ongezond als hij in zich zelf bijt. Slaagt U erin om het gehele 
veld te laten leegeten, dan krijgt U meteen weer een nieuw veld 
met voedsel ter beschikking. 

Aan het einde van het spel krijgt U de score in beeld, Is de 
score hoger dan een der spelers in de Top Tien dan wordt U naam 
gevraagd en bijgeschreven in de Top Tien. 
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10 REN *** PYTHON ** 

20 KEYOFF:SCREENO:WIDTH4@: COLOR11,1,1 

30 PRINI” ** ee PYTHON …. 
re 

#0 REM INITIALISEREN 

50 DIM QSC10),NSC1O),XC6EO, YC6EO,LSC1O 
>: P=1 

60 FOR F=1 IO 10 

70 NSCF)="HSX" 

Bo ascrj=" 0” 

30 LsCF)=" 0” 

100 NEXT F 

110 LOCATE12,8 

120 PRINT "Joystick ? (j/m)” 

130 AS-INKEYS: IF A$="” THEN 130 

140 IF AS="J" OR AS="j" THEN N=1:GOTO 17 

a 

150 IF AS<>"N” AND AS<>”n” THEN 130 

150 N=0 

170 LOCATE 7,11 

180 PRINT "Moeilijkheidsgraad ? 1-5)” 
190 AS-INKEYS: IF AS="”” THEN 190 

200 IF AS<”1” OR A$>"5” THEN 190 

210 P7=0 

220 M=VALCASI-1 : M= 

230 SCREEN 2,2 

240 PLAY”"M6ODOS1O2LECDEL+ALBELHALBEL4ALB 

GFFLHALBELHALBEL4ALBABO3CEDEL4DLBEC” , "MG 

UO0S1OSLECDELHALBEL +ALBELHALBGFFLHALBEL 4 

ALBEL#ALBABOSCEDEL4DLBEC” 

250 OPEN ”GRP:” FOR OUTPUT AS #1 

250 REM SCHERM-LAYOUT 

270 LINE (@,7)-C255,0),8,BF:LINE C@,191) 
-(255,184),8,BF:LINE C@,183)-(7,8),8,BF: 

LINE C248,183)-(255,8),8,BF 

280 IFM>4THENM=t 

290 FOR F=8 TO 176 STEP 8 

300 PSET CB,F),1 

310 PRINT #1, ”GGGGGGGGGGGGGEGEGGEGEGGEGE 

GGGG”:REM 30 KEER GRAPH + ”3” 
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320 NEXT F 

33@ REM HOOFDPROGRAMMA 

340 P=D:X1=120:Y1=80:H=B:U=D:A=1:B=D:E-- 
I:XCOI=X1:YCOI=Y1 

350 PSET CX1,Y1),1 

350 PRINT #1,"”B”:REM SHIFT + GRAPH + ”[” 
370 REM BESTURING 

380 IF STICKCN)=7 THEN H=-8:U=@ 

330 IF STICKCN)=3- THEN H=B:U=@ 

400 IF STICKCN)=1 THEN H=@:U=-8 

410 IF STICKCN)=S THEN H=@:U=B 

420 REM NIEUWE COORDINATEN 

430 X1=Xlt+H:Yl=Yl+U 

HUD XCAI=X1:YCAI=Y1 

450 E=E+1:IF E>1@ THEN E=Q 

45® REM KIJK WAT DE SLANG RAAKT 

470 IF POINT CX1+3,Y1+3)=11 THEN IF POIN 
T CX1+3,Y1+1)=1 THEN PLAY”M637S1L3206C": 
P=P+1:IF P=559 THEN M=M+1:FOR F=1 TO 400 
:NEXT F:P7=P7+P:CLS:GOTO 260 

388 IF POINT CX1+4,Y1+2)<>1 THEN P7=P7+P 
: GOTOSS@ 

430 A=A+1:IF A>65@ THEN A=@ 

500 REM DE NIEUWE KOP VAN DE SLANG 

510 PSET CX1,Y1),1:PRINT #1,”B":REM GRAP 
nj a LE 

520 REM EIND VAN DE SLANG WEGHALEN 

530 IF E>M THEN LINE CXCB),YCB))-CXCB)+7 
‚YCB)+7),1,BF:B=B+1:IF B>650 THEN B=@ 
540 GOTO 370 

55@ REM DE SLANG HEEFT IETS GERAAKT 

5560 FOR F=1 TO 200:NEXT F 

57@ SCREEN @ 

58® CLOSE 

590 CLS:PRINT ” Je hebt”;P7;*” punte 
n gehaald.” 

599 SS=STRSCP7) 

618 FOR A=1 TO 18 

528 IF VALCQSCAI)>=VALCSE) THEN NEXT A 
630 IF A>1@ THEN 750 

640 IF A=10 THEN 700 
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550 FOR B=10 TO A+1 STEP —1 

550 QSCB)=-QSCB-1) 

5670 NSCB)=NSCB-1) 

580 L$SCB)=LSCB-1) 

590 NEXT B 

700 QSCAI=SS:LSCAI=STRECMM+1D 

718 IF INKEYS<>”” THEN 718 

728 LOCATE 0,3 

730 INPUT "Wat is je naam”;NSCA): IFLENCN 
SCAI)>1STHENNSCAI=LEFTECNECA), 15) 

740 CLS:PRINT ” *=enSCDRETAAE 
ELS ee er 

750 LOCATE @,3 

76@ PRINT TABC1); "Nr .”;TABC7); "Score”;TA 
BC15);”Speler”";TABC31); "Level" 

77@ PRINT TABC35);" ” 

780 FOR A=1 TO 10 

790 PRINT A;TABC6); SCAN; TABC1S) ;NECAI; T 
ABC32) ;LSCA) 

820 NEXT A 

818 LOCATE 4,20 

B28 PRINT "Wil je nog een keer ? Cj/m)” 
830 AS=INKEYS:IF AS=""” THEN 830 

840 IF AS="J" OR A$="j" THEN P=@:CLS:GOT 
0 178 

858 IF A$<>"N” AND A$<>”n” THEN 830 

B5@ COLORIS, 4, 4: SCREENO: WIDTH37 : KEYON: EN 
D 
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ALIENS 


U krijgt tijdens een van Uw interplanetaire reizen pech met Uw 
ruimteschip, waardoor U op een onbekende planeet moet landen. U 
heeft een SOS-bericht naar Uw thuisbasis gestuurd en wacht nu op 
onderdelen om Uw schip te repareren. 

Maar dan begint de ellende... U bent opgemeckt door wezens 
uit een ander melkwegstelsel en die hebben het op Uw ruimteschip 
gemunt. Ket enige wat U rest is het laserkanon. 

De wezens kunnen U alleen doden door op de planset te landen 
bovendien kunnen ze via hun moederschip een dodelijke gammastra, 
op de planeet richten, Wordt U door die straal gevangen dan is 
het ook met U gedaan. Als het moederschip de gammastraal gaat 
activeren, zullen zij die eerst ergens op richten. Waar hij op 
gericht wordt, kunt U zien aan de oppervlakte van de planeet. 
Heeft U het klaargespeeld om de eerste aanvalsgolf te 
vernietigen, dan zal het moederschip onmiddelijk een nieuwe golf 
aliens op U afsturen. 

Door te werken met ON STRIG() GOSUB , ON SPRITE GOSUB en STICKC) 
is het spel realistischer geworden. U kunt nu tegelijkertijd be- 
wegen en schieten. 
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18 
20 


REM **e ALIENS *ee 
KEYOFF :WIDTH37 : SCREEN@: COLOR1S,1,1:G0 


TOS@ 


30 
40 


REM INITIALISEREN 
CLS: COLOR1S, 1 
LOCATE 10,9 

PRINT “Joystick ? C4/m)” 
AS=INKEYS: IF A$=”” THEN 70 

IF A$="J” OR A$="j” THEN N=1:GOTO 110 
IF AS<>”N” AND AS$<>”n” THEN 70 
N=0 

SCREEN 2,0 

COLOR 1,1,6 

ON SPRITE GOSUB 980 

ON STRIG GOSUB 930,930 

REM SCHERM-LAYOUT 

LINE C@,181)-(255,191),6,BF 
OPEN ”GRP:" AS #1 


180 PSET C50,185),6 


PRINI #1,”SCORE:0” 

PSET C145,185),6 

PRINT #1, ”AANVAL: 1” 

DIM XC18),YC18),WC16) ,CC18) 
ST=1:00=6: MO=4: RX=125:UP=25: SC=O:WI= 


GOSUB 780 

REM COORDINATEN VAN DE SPRITES 
FOR F=1 TO 16 STEP 3 

FOR I=@Q TO 2 

XCF+IJ=1*25+20: YCF+ID=F*7 
CCF+ID=1 

NEXT I 

WCFD=1 


320 NEXT F 


330 


X(A)=20 


340 REM HOOFDPROGRAMMA 


350 


PLAY”UIST25SM697S106LE4G”" 


360 IF WC1)=1 THEN PUT SPRITE 1,CXC1),YC 
19),2,1:PUT SPRITE 2,CX(2),Y(23),2,2:PUT 
SPRITE 3,CXC3),YC3)),2,3 
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370 IF WCHD=1 THEN PUT SPRITE 4, XCH),YC 
49), H,H:PUT SPRITE 5,CXC5),YC5)),4,5:PUT 
SPRITE 6, XB), YB)), 4,6 

380 IF WC7)=1 THEN PUT SPRIIE 7,(X(7),YC 

7)),7,7:PUT SPRITE 8, (XB), YCB)), 7,8: PUT 
SPRITE 9, CXC9),YC9),7,3 

390 IF WCIG)=1 THEN PUT SPRITE 10, CXC10) 
‚YC10)),8,10:PUT SPRITE 11,CXC11),YC11D) 
‚8,11:PUT SPRITE 12, (X(12),Y(12)),8,12 
400 IF WC13)=1 THEN PUT SPRITE 13, CXC13) 
„YC13)),12,13:PUT SPRITE 14, (XC14),YC1HD 
),12,14:PUT SPRITE 15,CXC15),YC1S5)),12,1 

5 

419 IF WCIBD=1 THEN PUT SPRITE 16, CX(16) 
„YC16)),13,16:PUT SPRITE 17,CXC17),YC17) 
),13,17:PUT SPRITE 18, CXC18),YC18)),13,1 
E] 

H20 SPRITE ON 

#30 REM VERPLAATSEN VAN DE RAKET 

H4D IF STICKCND=3 THEN IF RX<242 THEN RX 

=RX+6 

450 IF STICKCN)=7 THEN IF RX>5 THEN RX=R 


#60 PUT SPRITE 31,CRX,172),8,31 
470 UY=UY-G: IF UY<O THEN UP=29:STRIGCND 


#80 PUT SPRITE 30, CUX,UY),13,UP 

430 REM CONTROLE U/D GAMMASTRAAL 

500 IF AL=@ THEN IF RNDC-TIME)<.04 THEN 
AL=1:AX=RNDC-TIME)*215+20:LINE CAX-20,18 
19-CAX+20,183),15,BF:AT=O 

510 IF AL=1 THEN AT=AT+1:IF AT=1@ THEN F 

ORG=15TOOSTEP-1 : PLAY”T2SSM6000S1L 1506U=G 
;B”:NEXT G:LINE CAX,0)-CAX-20,180),15:L1 

NE CAX,0)-CAX+20,180),15:PAINT CAX,9),15 

528 IF AL=1 IHEN IF POINT CRX,180)=15 OR 
POINT CRX+7,180)=15 THEN GOTO 1220 

530 IF AL=1 THEN IF AT=30 THEN AL=O:LINE 
CAX-20,181)-CAX+20,183),6,BF:LINE CAX-2 

O,0)-CAX+20,180),1,BF 

540 REM ALIEN BENEDEN 7 
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55@ IF WCIJ=1 THEN IF YC1)>172 GOTO 1220 
560 IF WC4)=1 THEN IF YC(H)>172 GOTO 1220 
578 IF WC7)=1 THEN IF YC7)>172 GOTO 1220 
580 IF WCIQ)=1 THEN IF YC19)>172 GOTO 12 


590 IF WCI3)=1 THEN IF YC13)>172 GOTO 12 
500 IF WCI5)=1 THEN IF YC15)>172 GOTO 12 


5618 REM VERTICALE BEWEGING 7 

628 XCOI=XCO+MO 

630 IF XC@)<18 OR XC@I>130 THEN MO=MO*-1 
:FOR F=1 TO 18:YCF)=YCF)+DO:NEXT F 

54@ REM NIEUWE COORDINATEN BEPALEN 

55@ IF WCIJ=1 THEN XCI)=XC1D+MO: XC2I=XC2 
+MO: XCII =X CI) +MO 

55@ IF WCHI=1 THEN XCH)=XCHI+MO: XC5I=XC5 
2+MO: XCEI=X CE) +MO 

678 IF WC7)=1 THEN XC7)=XC7+MO: XCBI=XCB 
>+MO: XCII = XCII +MO 

589 IF WCIGI=1 THEN XC1O)=XC1BI+MO: XCII 
=XC112+MO: XCL2I=XC12)+MO 

638 IF WCI3)=1 THEN XC13)=XC13)+MO: XC1HD 
=XCIHI+MO: XCIS)=XC15)+MO 

700 IF WCI5)=1 THEN XC16)=XC1EI+MO: XC17) 
=XC17)+MO: XC18)=XC18)+MO 

718 REM VERPLAATSEN VAN DE RAKET 

728 IF STICKCN)=3 THEN IF RX<24t2 THEN RX 
=RX+5 

730 IF STICKCN)=7 THEN IF RX>5 THEN RX=R 


740 PUT SPRITE 31,CRX,172),9,31 
750 UY=UY-G: IF UY<O THEN UP=23: STRIGCN) 


760 PUT SPRITE 30, CUX,UY),13,UP 
770 GOTO 340 

780 REM SPRITES DEFINIEREN 

730 SPRITESC1)=CHRSCOI+CHRSCOI+CHREC2HI + 
CHR$C5O)+CHRSC125)+CHRSC155)+CHRSC255I+C 
HRSC102) 

800 SPRITESCH)=CHRSC24) +CHRSC255) +CHRSC2 
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55)+CHRSC2139) +CHRSC2SSI+CHRSCEO) +HCHRSCHE 
)+CHRSCISS5) 

810 SPRITESC7)=CHRSC6E) +CHRSCIE) +CHRSCI2 

5)+CHRSC30) +CHRSC255) +CHRSC25SI+CHRECIES 
)+CHRSC36) 

B20 SPRITESC10)=CHRSC24) +CHRSCEO) HCHRECH 

OI +CHRSC255) +CHRSC125) +CHREC36I +CHRECIOD 

+CHR$C129) 

830 SPRITESC13)=CHRSC24) +CHRSC126) +CHREC 

219)+CHRSC255)+CHRSC126) +CHRSCIE) +CHRSCI 

@2+CHRSC129) 

840 SPRITESC16)=CHRSC1239)+CHRSC125) +CHRS 
C219)+CHRSC125)+CHRSCEO) +CHRSCEO) +CHRSCA 

0) +CHRSC123) 

850 SPRITESC30)-CHRSC16)+CHRSCI2I +CHRSCI 

5)+CHRS (32) +CHRSC16)+CHRSC32) +CHRECIE) +C 

HRSC32) 

860 SPRITESC31)=-CHRSC24)+CHRSC2HI +CHREC2 

HD +CHRSC24) +CHRSCEON +CHREC126) +CHREC25S) 

+CHR$C30) 

870 FOR F=1 TO 16 STEP 3 

888 FOR I=1 TO @ 

839 SPRITESCF+I)=SPRITESCF) 

300 NEXT 1 

910 NEXT F 

328 RETURN 

330 REM SCHIETEN 

340 PLAY”T1OOL1BUISM4A0SEOZA" 

950 STRIGCN) OFF 

950 UX=RX:UY=153: UP=30 

970 RETURN 

980 REM BOTSING VAN SPRITES 

990 REM IS DE RAKET GERAAKT ? 

1002 FOR F=1 TO 18 

1010 IF YCF)>164 THEN IF XCF)>RX-10 THEN 
IF XCF)<RX+10 THEN 1220 

1020 NEXT F 

1030 REM EEN ALIEN IS GERAAKT 

1049 UP=23 

1850 FOR F=1 TO 18 

105@ IF UY>YCF)-13 THEN IF UY<YCF)+13 TH 
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EN IF UX>XCF)-11 THEN IF UX<XCF)+11 THEN 
SPRITESCF)=SPRITESC20):CCF)=@: YCF)=-20: 

SC=SC+10:LINE C30,185)-(130,131),6,BF:PS 
ET (9@,185),6:PRINT #1,SC:GOTO 1080 

1070 NEXT F 

1280 FOR I=1 TO 16 SIEP 3 

1030 IF WCID=1 THEN IF CCI)=@ THEN IF CC 
I+1)=@ THEN IF CCI+2)=@ THEN WCI)=@:PUT 

SPRITE F,‚C-B,@),,F:WT=WI+1 

1100 IF WT=6 THEN WT=@:GOTO 1150 

1118 NEXT I 

1120 SPRITE OFF 

1130 STRIGCN) ON 

1148 RETURN 

1158 REM VOLGENDE GOLF 

1168 DO=DO+2:MO=MO+2: ST=ST+1 

1170 LINE C30,185)-C135,1391),6,BF 

1180 LINE C1393,185)-(214,131),6,BF 

1190 PSET (90,185),6:PRINT #1,SC 

1200 PSET C1393,185),6:PRINT #1,ST 

1219 GOTO 240 

1220 REM EINDE VAN HET SPEL 

1230 PLAY”T180U1SM6O00S103LBBAGFELH4CLBFG 

ADL4F”, ”T18@U1SM6O00S1OSLEBAGFEL4CLBFGAD 

LF” 

1240 LINE CH39,0)-C206,11),11,BF 

1250 PSET C54,2),11 

1259 PRINT #1,”Nog een spel? Cj/n)” 

1278 AS=INKEYS: IF A$=""” THEN 1270 

1289 IF A$="J" OR A$=”j” THEN SCREEN @:R 

UN4@ 

1298 IF A$<>”N” AND A$<>"”n” THEN 1270 

1300 KEYON:SCREENG: COLOR 15,4, 4: END 
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MAANLANDER 


Ook weer een klassieker onder de computerspelen. De bedoeling 
van het spel 1s om met de maanlander een zachte landing op het 
maanoppervlak te maken. Het spel kan met joystick of met toet- 
senbord gespeeld worden. 

De joystick moet op poort 1 aangesloten worden. U kunt de 
maanlander naar links en rechts sturen en al dan niet de raket- 
motoren activeren om de daalsnelheid te verminderen. U begint 
met volle brandstoftanks, maar elke koerscorrectie kost veel 
energie. Het brandstofnivo staat onder in beeld aangegeven. 
Heeft U geen brandstof meer over, dan wordt de maanlander 
onbestuurbaar en zult U op de maan te pletter slaan. 

De maanlander kan alleen op vlak terrein landen. Dit vlakke 
terrein bevindt zich bij elk spel op een andere plaats. 

Bij besturing met het toetsenbord gebruikt U de cursor-toetsen 
voor de links/rechts beweging en de spatiebalk am de 
daalsnelheid te verminderen. 

Realistisch als dit spel is, zal een eenmaal ingezette beweging 
naar links of rechts constant blijven totdat U weer tegenstuurt, 
De landing moet echt heel zachtjes worden uitgevoerd om te 
voorkomen dat U de maanlander crasht. Op het moment dat de 
tander de maanoppervlakte raakt, moet de snelheid praktisch nul 
zijn. 

De maximale landingssnelheid is aan te passen in programmaregel 
1410, De variabele YY 15 de daalsnelheid. Als U bijv. een hogere 
toegestane landingssnelheid wenst, dan verandert U in regel 1410 
de waarde achter YY van .2 in bijv. 8. 

Dit maakt het iets eenvoudiger om veilig te lande 
Alle programmablokken worden voorafgegaan door een REM-regel, 
zodat U kunt nagaan waarvoor elk blok voor, 


10 REM *** MAANLANDER 1986 **« 

20 REM INITIALISEREN 

30 SCREENO:WIDTH 40:KEYOFF 

4O COLOR 15,4, 4 

50 PRINT” **nAANLANDER 
id 

BO LOCATE 12,10:PRINI”Joystick 7 CJ/ND”; 
70 IS-INKEYS:IF TS=""IKEN 70 

80 IF TS="J” OR TS=""THEN N=1:GOTO 110 
30 IF IS<>"N” AND TS<>”n” THEN GOTO 70 
100 N=0 

110 F=100:UU=D: UP=2100: HU=30: HP=2300 
128 DIM ACS36) 

130 COLOR 15,1,1 

140 SCREEN 2,2 

150 REM STERREN TEKENEN 

160 FOR H=1 TO 100 

170 X=RNDC1)*255: Y=RNDC1)*165 

189 PSEICX,Y),15 

190 NEXT 

200 REM PLANETEN TEKENEN 

210 CIRCLEC255,10),50,10 

220 PAINT C255,10),10,10 

230 R-3.141593#/180 

240 CIRCLE (255,10),70,14,R*130,,.25 
250 CIRCLE C255,10),80,14,R*100,,.35 
250 PAINT (255,35), 14,14 

270 CIRCLE C40,30),20,9 

280 PAINT (40,30),39,9 

230 REM HET OPZETIEN VAN SPRITES 

300 A1S=CHRSC&BOOO11000) 

310 A2S-CHRSC&BO0111100) 

320 AIS-CHRSC&BO1111110) 

330 A4S-CHRSC&B11000011) 

340 ASS-CHRSC&B11111111) 

350 ABS=CHRSC&BII111111) 

360 A7S-CHRSC&BO1011010) 

370 ABS=CHRSC&B10000001) 

380 AS-A1S+A2S+AIS+A4S+ASS+AGE+A75+ABE 
390 SPRITESCO)=AS 
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400 A1S=CHRSC&BO) 

410 A2$=CHRSC&BO) 

420 A3S=-CHRSC&BOOO1 1000) 
430 A4S=-CHRSC&BOO111100) 
440 ASS=CHRSC&BO1111110) 
450 A6S=CHRSC&BO1111110) 
450 A7S=CHRSC&BI1111111) 
470 ABS=CHRSC&B1I1111111) 
480 A$=A1S+A25+AIS+AUS+ASE+AEE+A7S+AEE 
490 SPRITESCIJ=AS 

500 A1S=CHRSC&BO) 

510 A2S=-CHR$SC&BO) 

520 A3S=CHRSC&BO) 

530 A4S=CHRSC&BO) 

540 ASS=CHRSC&BO) 

550 A6S=CHRSC&BOO111100) 
550 A7S=CHRSC&BO1111110) 
570 ABS=CHRSC&BI1111111) 
589 AS=A1S+A25+AIS+AHE+ASE+AGE+A7S+AEE 
590 SPRITESC2)=A$ 

509 A1S=CHRSC&BO) 

5109 A2$=CHRSC&BO) 

528 A3S=CHRSC&BO) 

530 A4S=-CHRSC&BO) 

640 ASS=CHRSC&BO) 

5650 A5S=CHRSC&BO) 

550 A7S=CHRSC&BO0D1 1000) 
570 ABS=-CHRSC&BOO111100) 
589 A$=A1S+A25+AIS+AHE+ASE+AGE+A7S+ABE 
530 SPRITESC3)=AS 

700 A1lS=CHRSC&B10001000) 
710 A2S=CHRSC&BO1001001 ) 
720 AIS=CHRSC&BO0101010) 
730 A4S=CHRSC&EB10011101) 
740 ASS=CHRSC&BO1001010) 
750 A5S=CHRSC&BOO101100) 
750 A7S=CHRSC&BI1111111) 
770 ABS=CHRSC&BOD111100) 
780 AS=A1S+A2S+AIS+AUS+ASS+AGS+A7S+ABE 
730 SPRITESC4)=AS 

809 A1S=CHRSC&B10011001) 


810 
B2g 
830 
B40 
850 
850 
870 
880 
830 
300 
310 
920 
330 
340 
350 
9650 
370 
380 
330 


1000 


A2S=CHR$SC&BO1 000010) 
AIS-CHRSC&BOO100100) 
A4S=CHRSC&B10011001) 
ASS=-CHRSC&B10011001) 
ABS=CHRSC&BOO1 00100) 
A7S=CHRSC&BO1000010) 
ABS=-CHRSC&B10011001) 
AS=A1S+A2E+AIS+AHS+ASE+AGE+A7E+A0E 
SPRITES(5)=A$ 
A1S=CHRSC&BOODODDOO) 
A2S=-CHRSC&BOOOOOOOO) 
AIS=-CHRSC&BOO100100) 
A4S=-CHRSC&BOOO1 1000) 
AS5$=CHRSC&BO001 1000) 
ABS=CHRSC&BOO1 00100) 
A7S=CHRSC&BOOOAOOOO) 
ABS=CHRSC&BO0000000) 
AS=A15+ALS+AIS+AUE+ASE+AEE+A7E+ABE 
SPRITESC(&)=A$ 

REM HOOFDPROGRAMMA 


1018 GOTO 1030 


1020 


PAINT C@,191),1 


1030 X=124:Y=B0: YY=D: XX=D: U= 1800 


1040 


RESTORE1570:Y1=156:X1=0 


1250 FOR F=1 TO 96 


1060 


READ A:ACF)=A 


1070 NEXT 


1080 


REM DE MAAN TEKENEN 


1030 TS=RIGHTSCSIRSCTIME),2):L=INTCCUALC 
T$)/100)*395):IF L/2=INTCL/2) THEN L=L+1 
1100 RR=@ 


1118 


LINECX1,Y1D-CX1+ACL), YI+ACL+1DD, 11 


1128 REM KIJKEN WAAR JE MOET LANDEN 


1130 


IF ACL)=15 THEN LX=X1l:LY=Y1 


1148 X1=X1+ACL): Y1=YI+ACL+ID 


1150 


IF RR=38 THEN 1190 


1150 IF L=35 THEN L=-1 


1170 


L=L+2: RR=RR+1 


118@ GOTO 1110 


1190 


PAINT C@,191),11,1 


1208 REM DE BRANDSTOF TEKENEN 
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1219 OPEN ”grp:” FOR OUTPUT AS #1 

1220 PSET C1,184),4:COLOR 1:PRINT #1,”FU 
EL ”:COLOR 15:CLOSE 

1230 FOR F=@ TO 7:LINEC4O,183+F)-C180,18 
3+F),5:NEXT 

1240 PUT SPRITE @,(X,Y),15,0 

1250 REM BESTURING 

1250 IF STICKCN)=7 AND U>3S30 THEN XX=XX- 
„oe 

1270 IF STICKCN)=3 AND U>390 THEN XX=XX+ 
„oe 

1280 IF STRIG(N)=-1 AND U>390 THEN YY=YY 
-.02 ELSE YY=YY+.02 

1230 REM BRANDSTOF BIJSCHRIJVEN 

1300 IF U>350 IKEN IF STRIGCN)=-1 OR STI 
CKCN)=7 OR STICK(N)=3 THEN LINE (U/10,18 
3)-CU/10,190),11:U=U-2 

1310 REM SNELHEID BEREKENEN EN BEPERKEN 

1320 IF YY>2.2 THEN Yy=2.2 

1330 Y=Y+YY: XX XX 

1340 IF X>248 THEN X=248:XX=0 

1350 IF X<O THEN X=0:XX=@ 

1350 IF Y<-10 THEN Y=-10:YY=O 

1370 REM RAAKT DE LANDER DE MAAN 7 

1380 IF POINTCX,Y+8)=11 OR POINTCX+7,Y+8 
)=11 THEN 1400 

1390 GOTO 1240 

1400 REM GOEDE OF SLECHTE LANDING 7 

1410 IF X>=LX AND X<=LX+7 AND YY<=.2 THE 
N 1500 

1420 REM MAANLANDER IS GECRASHED 

1430 FOR F=@ IO 5 

1440 PUT SPRITE F,‚C255,191),8,F 

1450 PUT SPRIIE F+1,CX,Y),B,F+1 

14650 FOR FF=1 TO 50:NEXT 

1470 NEXT 

1480 PUT SPRITE 6,(255,191),1,6 

1490 FOR F=1 TO 10:NEXI:GOTO 1020 

1500 REM MAANLANDER IS GOED GELAND 

1510 OPEN "grp:” FOR OUTPUT AS #1 

1520 PSET (1,175),11:COLOR 1:PRINT #1,”G 
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OED 20 ! NOG EEN SPEL ? CJ/N)”:COLOR 11 
1530 KS=INKEYS:IF KS="" THEN 1530 

1540 IF KS$="J" OR K$="j" THEN PUT SPRITE 
0, C256,-9),0:PSEIC1,175),11:PRINI #1, ”G 
OED 20 ! NOG EEN SPEL ? (J/N)”:COLOR15:C 
LOSE:GOTO 1020 

1550 IF KS<>”N” AND KS ”n” THEN 1530 
1560 END 

1570 DATA 5,-5,5,3,5,5,6, 
1580 DATA 5 
1590 DATA 5 
1500 DATA 5 
1610 DATA 5 
1520 DATA 5 
1630 DATA S 
1640 DATA 2 
1650 DATA 5 
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SLALOM 


fet dit programma kunt U nu de gevaarlijkste afdaling van Europa 
leren beheersen. Er zijn vier spelnivo's van beginner tot de 
proffess:onele ‘Dour Kill-Racer . U kunt met joystick of toet- 
senbord spelen. 

De bedoeling 1s dat U deze reuzeslalom zonder ongelukken vol- 
tooid en dat U daarb:j geen entel poortje raakt. 

Als U van de piste raakt (zeer slordig') 1s de wedstrijd voor U 
afgelopen. 

De piste is vastgelegd in de DATA-regels 930-970, 

Wilt U de piste veranderen dan moet U de DAIA in deze regels 
veranderen. De getallen zijn steeds het beginpunt aan de linker- 
zijde van de piste. Dit getal mag niet groter zijn dan 185 
i.v.m, de breedte van de piste en niet kleiner dan O. 

Veel succes. 
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18 REM *** SLALOM *ve 
2@ SCREEN@:WIDTH4@: COLORI1,1,1:KEYOFF 
30 PRINT” see SLALD NM 


H@ REM DE COMPUTER VRAAGT OM INFO 

S5@ LOCATE 11,4:PRINT "Joystick P (j/n)” 

5@ TS=INKEYS:IF T$=”” THEN 650 

70 IF TS=” OR T&="j" THEN N=1:GOTO 100 

89 IF T$<>"N" AND T$<>”n” THEN 60 

30 N=O 

100 PLAY”L64OED": PRINT: PRINT: PRINT” 
Niveau van de skier: ” 


118 LOCATE 13,10:PRINT = BEGINNER" 
128 LOCATE 13,11:PRINT "2 = RECREANT” 
130 LOCATE 13,12:PRINT "3 = GEVORDERDE" 


14@ LOCATE 13,13:PRINT "4 
ER” 

15@ PRINT:PRINT:PRINT ” Toets je 
keuze in.” 

158 TS=INKEYS:IF T$="" OR T$<"1” OR TS>" 
4” THEN 150 

178 PLAY”LE4OED" : NU=VALCTS)/2+1 

188 REM INITIALISATIE 

130 OPEN ”GRP:"” FOR OUTPUT AS #1 

208 COLOR 1,2,2:SCREEN2 

21@ RESTORES30 

2eg GOSUB 870 

230 C=-0Q:D=2:S=1:X=100:Y=1:U=D:ST=-O 

24@ REM HOOFDPROGRAMMA 

258 GOSUB 710 

260 PUT SPRITE S,CX,Y),4,S 

27@ PUT SPRITE C,‚,C1@,10),4, 31 

288 PUT SPRITE D,C1@,20),4,31 

2390 REM WORDT ER IETS GERAAKT 7 

308 IF POINT CX+1,Y+7)=2 OR POINT CX+6,Y 
+7)=2 THEN 460 

31@ IF POINT CX+4,Y+6)=8 OR POINT CX+3,Y 
+65)=8 THEN U=U+1 

328 REM BEWEGING BEREKENEN 

330 IF S=@ THEN X=X-NU 


DOWNHILL-RAC 


340 IF S=2 THEN X=X+NU 

350 IF S=1 THEN Y=Y+NU*1.S5 ELSE Y=Y+NU 
360 REM BESTURING 

370 IFS-OGOTO400 

388 IF STICKCN)=7 THEN S=@:C=1:0=2: GOSUB 
328 

398 IFS=1GOTO420 

HOO IF STICK(N)=5 THEN S=1:C=@:D=2: GOSUB 
Seg 

410 IFS=2G0T0430 

420 IF STICKCN)=3 THEN S=2:C=Q:D=1: GOSUB 
320 

430 REM IS DE SKIER BENEDEN 7 

440 IF Y>196 THEN SOUNDS, &BO0000: Y=-8: GO 
To 240 

450 GOTO 260 

H6@ REM DE SKIER IS GEVALLEN 

470 DEFUSR=144: U=USRCO) 

480 LINE CH@,15)-C207,0),1,BF 

430 PLAY"”ME@GVIOSILIEO4BFCOILHD": COLOR 1 
5 

500 PSET C47,1),1 

518 PRINT #1,”Je bent gevallen!” 

520 PSET C47,9),1 

530 PRINT #1,”Toets het niveau in.” 

540 GOTO 680 

550 REM GOED EINDE 

5508 DEFUSR=144: U=USRCO) : PLAY "163051 3L803 
ABCDEFGABCDEFGACL4+DLBC” , ”"M637513LBOSGFED 
CBAGFEDBCAACL+DLBC” 

570 LINE C#@,192)-(223,78),1,BF 

589 COLOR 15 

590 PSET CH7,79),1 

500 IF U=OTHENPRINT #1,"”SUBLIEM !!!!1” 
618 IF U>@THENIFU<7THENPRINT #1, "Goed ge 
daan !” 

628 IF U>BTHENIFU<IJTHENPRINT #1,”Dat ka 
n beter !” 

630 IF UV>12THENPRINT #1,"”Slecht ...….…...” 
54@ PSET CH7,87),1 

55@ PRINT #1,”Je raakte”;U; "poortjes" 
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556% PSET (47,95),1 

5678 PRINT #1, "Toets het niveau in.” 

680 IS=INKEYS:IF IS="” OR T$<”1"” OR TS>” 
4” THEN 680 

538 NU=VALCTSI/2+1 

700 GOTO 200 

71@ REM SCHERM OPZETTEN 

720 ST=ST+1 

730 IF ST=11 THEN 550 

740 FL=2 

750 CLS 

750 FOR F=1l TO 24 

770 READ A 

780 LINE CA,B*F)-C70+A,8*F-8),15,BF 

790 FL=FL+1 

809 REM POORTJES OPZETTEN 

810 IF FL=5 THEN LINE CA+31,8*F)-(A+33,8 
*F-5),8,B:FL=@ 

820 NEXT 

830 IFST=1THENPSETC7B, 1),15:COLOR1: PRINT 
#1, ”START"” 

840 IFST=1OTHENPSETCEB, 184), 15: COLOR1 : PR 
INI#1, "FINISH" 

B5@ GOSUBS20 

85% RETURN 

B7@ REM SPRITES OPZETTEN 

880 SPRITESC1)=CHRSCHO)+CHRSCHOI+CHRSCIE2 
HI) +CHRSC12H) +CHRSCSEI+CHRECHOI+CHRECHOI + 
CHRS CHO) 

830 SPRITE$SCO)=CHRSCHB) +CHRSCHB) +CHRSC2B 
J+CHRSCHB) +CHRSC15)+CHRSCI3) +CHREC28) +CH 
R$C224) 

300 SPRITESC2)=CHR$C12)+CHRSC12)+CHRSCSE 
J+CHRSC12) +CHRSCB) +CHRSC196) +CHRS CSE) +CH 
R$SC7) 

318 RETURN 

320 SOUND6, 20+NU*B: SOUND7,&B110111 : SOUND 
8,&B10900: SOUNDS, 3: SOUND1@, 16: SOUND11, 32 
: SOUND12, 4: SOUND13, 13: RETURN 

930 DATA 61,61,61,51,561,561,61,561,51,51,6 
1,59,56,53,50,47,44,41,38,35,32,29,25,23 


„20,17,15,14,13,13,13,14,16,18,20,23,26, 
29,32,35,38,41,44,47,50,53,56,59,62,55,6 
8,71,74,77,80,83,86,83 

S40 DATA 94,98,102,106,110,114,118,122,1 
26,130,134,138,142,146,150,154,157,150,1 
63,166,169,169,1639,169,159,169,171,173,1 
75,177,178,179,180,181,182,183,184,184,1 
84,184,183,183,183,183 

850 DATA 182,181,179,176,173,170,167,164 
‚161,158,156,154,152,151,150, 143, 148, 148 
‚148,148,149,151,154,157,160, 162,153, 163 
‚162,150,157,154,151,148,145,142,139, 136 
„133,130,127,124,121 

960 DATA 118,115,112,110,103,108,108,108 
‚109,111,113,116,119,122,124,126,128,1239 
„130,130,129,128,126,124,121,118,115,112 
‚103,106,103,100,97,94,91,88,85,82,739,76 
„73,71,69,67,565,53,61 

370 DATA 59,57,54,51,48,45,42,39,36,34,3 
2,30,28,27,26,25,25,27,28,30,32,34,36,38 
‚41,44,47,50,53,55,57,59,61,62,61,50,59, 
58,57,56,55,55,55,55,55,55,55,55 
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BREAKOUT 


De naam van dit spel vertelt U waarschijnlijk al genoeg om het 
doel van het spel te raden. U moet d.m.v. een sloperskogel door 
een of meerdere muren heen breken. 

Voordat U met het spel gaat beginnen, kunt U kiezen of U met 
Joystick wilt spelen, hoeveel muren U wilt doorbreken en met 
welke snelheid U wilt spelen. 

Tijdens het spel moet U verhinderen dat de terugkaatsende kogel 
onder vit het beeld kan verdwijnen. U heeft hiervoor tot Uw 
beschikking een verend stootkussen, dat U naar links en rechts 
kunt bewegen. 

Heeft U alle stenen uit het beeld weggewerkt, dan krijgt U bij 
het volgende spel een extra muur of een hogere snelheid. 

Heeft U echter de kogel drie keer laten ontglippen, dan 1s voor 
U het spel afgelopen. 

Een aardig extraatje is de ingebouwde demonstratie-mode, welke U 
kunt aanroepen met Funktietoets Fl. 
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18 REM *** BREAK-OUT **« 

20 KEYOFF:WIDTH37:SCREEN@: COLOR11,1,1 

30 PRINI® «… BREAKOUT ad 
id 

H@ ON KEY GOSUB 670:KEYC1) ON 

5@ ON SPRITE GOSUB 500 

5@ OPEN ”"GRP:” AS #1 

7@ LOCATE12,6:PRINT "Joystick P (J/N)” 

BO AS=INKEYS:IF A$="" THEN 80 

90 IF A$="J" OR AS="j" THEN N=1:GOTO 120 
190 IF A$<>"”N” AND A$<>"”n” THEN 80 

118 N=@ 

128 LOCATE 8,89:PRINT "Aantal muren ? C1 
hee Ed 

130 AS=INKEYS:IF A$="” THEN 130 

149 IF AS<”1” OR AS>"”3"” THEN 130 ELSE MU 
=VAL CAS) 

15% LOCATE1@,12:PRINT "Snelheid 7 C1-4) 


160 AS=INKEYS: IF A$="”” THEN 160 
170 IF A$<”1” OR AS>"ú” THEN 160 

189 YM=VALCASI-1 

190 SCREEN 2,0 

200 SPRITESCO)=CHRSC6)+CHRSC2HOI+CHRSC2 
40) +CHRS CIE) +CHRS CO) +CHRS CO +CHRS CO) CHR 
SCO) 

210 SPRITESC1)=CHR$C255)+CHRSC255) +CHRSC 
255)+CHRSC255+CHRSCO)+CHRECO) +CHRSCOI+C 
HRS CO) 

220 IF YM<@ AND YM>-4 THEN YM=YM*-1+1 EL 
SE IF Yr<# THEN YM=YM+1 

230 REM SCHERM-LAYOUT 

240 LINE (@,191)-(7,0),13,BF:LINE C241,1 
S1)-C248,0),13,BF:LINE CB,7)-C240,0),7,B 
F 

250 T-0:BA=0 

260 CO=20 

270 FOR J=1 TO MU 

280 FOR 1=CO TO CO+25 STEP 5 

230 FOR F=10 TO 230 STEP 10 
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300 LINE CF,‚1)-CF+8,1+3),3,BF 

310 NEXT F 

320 NEXT I 

330 CO=CO+40 

340 NEXT J 

350 A=120:X=INTCRNDC-TIME)*225)+10: Y=160 
:XM=INTCRNDC19 “6-2: YM=YI*-1 

360 REM HOOFDPROGRAMMA 

370 IF Y<160 THEN SPRITE ON 

380 IF C=1 THEN A=X-2 

390 PUT SPRITE @,CX,Y),11,0 

#00 PUT SPRITE 1,CA,180),9,1 

#10 IF STICKCN)=3 THEN IF A<230 THEN A=A 
+4 

H20 IF STICKCN)=7 THEN IF A>3 THEN A=A-4 
430 IF POINT CX+2,Y+1)=3 THEN PLAY”T255U 
15L5407G”: ZX=INTCCX+2)/10)*10: ZY=INTCCY+ 
19/5)*S:LINE CZX,2Y)-CZX+8,2Y+3),1,BF: YM 
=YM*-1: T=T+1: IF T=MU*138 THEN SC=SC+T: PU 
T SPRITE @,,,2:PUT SPRITE 1,,,2:IF MU<3 
THEN MU=MU+1:GOTO 220 ELSE 220 

BUD XXX: Ye YA 

450 IF X<B THEN PLAY”T2S5U15L6406G”: XM=X 
mel: XeX+2 

460 IF X>235 THEN PLAY”T255U1SL6406G” : Xn 
XI: KeX-2 

470 IF Y<B THEN PLAY”T255U15L564066” : Yr=Y 
Mel 

HBO IF Y>191 THEN PLAY”T100U15L1602G": BA 
=BA+1:1F BA=3 THEN 560 ELSE 350 

430 GOTO 360 

500 REM SPRITE-BOTSING 

510 PLAY”T2SSV15L640SG” 

520 SPRITE OFF 

530 YM=YM*-1 

540 XM=INTCRNDC12*79-3 

550 RETURN 

560 REM EINDE VAN HET SPEL 

570 PUI SPRITE @,,,2:PUT SPRITE 1,,,2 
580 PSET C16,150),1 

530 PRINT #1,"Je hebt”;SC+T; "punten geha 


ald.” 

690 PSET C16,170),1 

618 PRINT #1,"”Wil je nog een keer P (j/n 
j 

528 CLOSE#1 

630 AS=INKEYS:IF A$=""” THEN 630 

640 IF AS="J" OR A$="j" THEN SCREEN @:RU 
N40 

650 IF AS<>"N” AND A$<>”n” THEN 630 

55@ SCREEN @:COLORIS, 4, 4: KEYON: END 

678 REM DEMO AAN/UIT 

680 IF C=1 THEN 730 

638 C=1 

708 PSET C74,153),1 

71@ PRINT #1, "DEMONSTRATIE" 

728 RETURN 

730 C=@ 

740 LINE (7#,153)-(170,150),1,BF 

758 RETURN 
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SQUASH 


Een aud (een der eerste, en simpel computerspelietje waarbij U 
een kaatsende bal in het spel moet houden d.m.v. een racket. De 
bal kaatst via achtermuur, zijmuren en Uw racket. 

Wanneer de bal tegen’ de achtermuur of tegen Uw racket kaatst zal 
de hoek die de richting die de bal heeft, willekeurig 
veranderen. 

U krijgt drie kansen,na de derde bal krijgt U te zien hoe lang U 
het spel heeft volgehouden. 

Het programma is zo opgebouwd, dat U er gemakkelijk aan kunt 
sleutelen. Probeer bijv. eens de sprite-detectie eens te 
veranderen van POINT naar ON SPRITE GOSUB. 


18 REM *** SQUASH ver 

2@ CLS:KEYOFF 

30 REM INITIALISEREN 

40 COLOR 15,4,4 

50 LOCATE 9,9 

52 PRINT "Joystick P Cj/m)” 

70 AS=INKEYS 

82 R=RNDC1) 

30 IF A$=""” THEN 70 

100 IF A$="J" OR A$="j"” THEN N=1:GOTO 13 


110 IF AS<>"N" AND AS<>"n” THEN 70 

120 N=0 

130 LOCATE 9,9 

140 PRINT "Snelheid ? 1-3)” 

150 AS=INKEYS: IF A$="" THEN 150 

160 IF A$<”1” OR A$>”5” THEN 150 

170 X1=VALCASI+2 

189 SCREEN 2,2 

199 GOSUB 480 

200 REM SCHERM-LAYOUT 

210 LINE (@,191)-C180,184),5,BF 

220 LINE CQ@,7)-C180,0),5,BF 

230 LINE C@,183)-(7,8),5,BF 

240 S=1 

250 REM HOOFDPROGRAMMA 

250 T1=TIME 

270 B=90:X=145: Y=INTCRNDC19*155)+18 
280 Y1=INTCRNDCI)*5)-2: X1=X1*-1 

230 REM ZET DE SPRITES ERGENS NEER 

300 PUT SPRITE 1,(160,B),2,1 

310 PUT SPRITE @,(X,Y),11,0 

320 REM BESTURING 

330 IF STICKCN)=1 AND B>7 THEN B=B-4 
340 IF STICKCND=S AND B<175 THEN B=B+4 
350 REM KIJK OF DE BAL IEIS RAAKT 

350 IF POINT CX,Y+4)=5 THEN X1=X1*-1:PLA 
Y”U15M637S1L1504C”:GOSUB 450 

370 IF POINT CX+4,Y)=S OR POINT (X+4,Y+8 
)=5 THEN PLAY"U1SM697S1L160SC”: Y1=Y1*-1 
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380 IF X>153 AND X<160 AND Y>B-6 AND Y<B 
+6 THEN PLAY”U1SMBSSS1L160BC”: X1=X1*-1:G 
OSUB 450 

330 REM BEREKEN DE NIEUWE X EN Y 

HOO X=X+X1 

10 Y=Y+Y1 

H20 REM HOU HET AANTAL BEURTEN BĲ 

430 IF X>250 THEN S=S+1:IF S= THEN 520 
ELSE 270 

440 GOTO 300 

450 REM HOEK VERANDEREN 

460 Y1=INTCRNDC1)*9)-H# 

470 RETURN 

480 REM SPRITES OPZETTEN 

490 SPRITESCO)=CHRSCO) +CHRSC24) +CHRSCEOI 
+CHRSC126) +CHRSC125)+CHRS CEO) +CHRSC2HI+C 
HRSCO) ' 

500 SPRITESC1)=CHRSC224)+CHRSC224) +CHRSC 
224) +CHRSC22H) +CHRSC22H) +CHREC22H) +CHRSC 
224) +CHRSC224) 

510 RETURN 

520 REM EINDE VAN HET SPEL 

530 IT=CTIME-T1)/50 

540 PUT SPRITE @,0,0),0,2:PUT SPRITE 1, 
C0,0),0,2 

550 OPEN ”GRP:” FOR OUTPUT AS #1 

560 PSET CS4,30),4:PRINT #1,”Tijd :” 
570 PSET (B6,45),4:PRINI '#1,TT; sec” 

580 LINE C48,90)-C210,80),1,BF 

530 PSET (52,82),4:PRINI #1,”Nog een spe 
1P Cy/m” 

600 CLOSE #1 

510 AS=INKEYS:IF A$=”” THEN 610 

620 IF AS="J"” OR AS="j” THEN CLS:SCREEN 
0:GOTO 130 

630 IF A$<>”N” AND AS<>”n” THEN 610 

640 KEYON: END 
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PARA TRAINER 


Een zeer origineel spel, waarbij de auteur zijn eigen ervaringen 
in het spel heeft verwerkt. 

De bedoeling van het spel is om veilig met parachute in de 
springbak te landen en het liefst ook nog in het midden, 

Het spel begint voor de beginners onder ons eenvoudig. Telkens 


als U veilig geland bent wordt de volgende sprong iets moeilij- 
ker, 


De allereerste keer dat U springt is er geen wind en zijn er 
geen obstakels op het springtercein. 

Bij de tweede sprong verschijnt er een Flat op het terrein. Bij 
de derde sprong ook nog een vijver. Daarna verschijnen er 
achtereenvolgens een huisje,vogels,en in het hoogste nivo ook 
nog een wolk waar U niet doorheen meg springen. 

Als U al die beproevingen hebt doorstaan dan wordt U automatisch 
gevorderde. Dan volgt de hele cyclus ven sprongen weer, maar dan 
met variabele winden. Komt U cok door deze reeks sprongen, dan 
wordt U INSTRUCTEUR. 

U begint dan weer opnieuw met Uw sprongenreeks, maar nu is de 
kans echter groot, dat door het grote aantal sprongen, Uw para- 
chute het laat afweten en U voor Uw veiligheid de reserve-para- 
chute moet gebruiken. 


U ziet het, legio mogelijkheden om Uzelf op het droge te 
trainen. 


Bediening met zowel joystick als cursortoetsen: 
Omhoog bewegen is springen 

Omlaag bewegen is Creserve)psrachute trekken 

Links en Rechts is sturen van de para (ook in vrije 
val). 


Er bestaat de mogelijkheid om een stukje vrije val te maken. U 
wordt gewaarschuud als U de minimum hoogte,waarbij U moet trek- 
ken,nadert d.m.v. een rode schermcand. 

Vergeet U dan toch nog te trekken dan wordt de rand zwart en zal 
de sprong Fataal aflopen. 

Ook tijdens de vrije val bent U volledig bestuurbaar om bijv. 
vogels te ontwijken. 

De sterkte van de wind wordt aangegeven met een windzak. 

Bij zeer sterke wind staat deze horizontaal en kunt U er niet 
tegenin sturen. Bij minder sterke wind bent U altijd in staat 
iets tegen de wind in te sturen. 


10 REM *** PARA-TRAINER *** 

20 WIDTH4@:SCREEN@:COLOR11,1,1:KEYOFF:DE 

FUSR=1 34 

30 PRINT” “ PARA-TRATNER 
……n 


40 LOCATE 10,10:PRINT "Joystick ? CJ/N)” 


50 TS=INKEYS 

50 R=RNDC-T IME) 

70 IF 1$="" THEN 50 

89 IF TS- OR T$-"j” THEN N=1:G0TO 110 
30 IF TS<>"N" AND T$<>"n” THEN 50 

100 N= 

110 COLOR1S,S, 12: SCREEN 2 

129 OPEN ”GRP:” FOR OUTPUT AS #1 

130 ST=1:M0=0: PU=O 

140 GOSUB 1250 

150 SS=-0:UL=1: X=240: UA=B: Y=7:WE=O 

160 REM HOOFDPROGRAMMA 

170 GOSUB 780 

180 GOSUB1680 

199 GOSUB 1430:G0T0 240 

200 GOSUB 1380 

210 IF SS<>1 THEN COLOR 15,5,12 

220 REM TIJD VOOR EEN DEFECI ? 

230 IF SS=2 AND WE=O AND VA<100 AND VA>3 
O AND ST=3 AND RNDC1)>.1 THEN WE=1:SS=1: 
FOR F=1 TO 12:FOR FF=1 TO 29:COLOR 15,5, 
F :NEXT: NEXT 

240 REM LAAT HET VLIEGTUIG ULIEGEN 

250 X=X-4t 

260 IF UL<>G THEN SOUND 7,60 

270 IF UL=1 THEN PUI SPRITE 7,CX+16,Y), 4 
,7:PUT SPRITE 6,(X+8,Y),4,6:PUT SPRIIE 5 
„VHS 

280 IF X<-24 AND 'SS=O THEN X=240 
290 IF X<-24 AND SS<>@ THEN UL=0 
USRCO) 

300 IF SS<>2 THEN PUI SPRITE 9,(0,-9),1, 
S:PUT SPRITE 10,(@,-9),1,10 


KE hd 
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318 REM VRIJE VAL 

320 IF STICKCND=1 AND SS=@ THEN SS=1:EX= 
x-8 

330 IF SS=1 THEN PUT SPRITE 8,C(EX,UAD,1, 
B: VA=UA+3 

340 REM DE PARACHUIE IS OPEN 

350 IF STICKCN)=S5 AND VA<120 AND SS=1 IK 
EN GOSUB1690:SS-2:UVA=VA-B: PUT SPRITE 8, C 
9,-9),1,8 

360 IF SS=2 THEN PUI SPRITE 9,CEX,VA),15 
‚S:PUT SPRITE 10, CEX,UA+8), 1,10: UA=VA+1 
370 REM RAAKT DE PARACHUTIST IEIS 7 

380 IF CPOINICEX+1,UA+6)=1 OR POINTCEX+6 
‚UA+6)=1) AND VA<150 THEN 1490 

390 IF CPOINT CEX+1,VA+6)<>5 OR POINT CE 
X+5,UA+EIC>5) AND SS=1 AND VA>H-10 THEN 
GOTO 1490 

400 IF VA<150 AND POINT CEX+4,UA+6)=1 TH 
EN 1490 

810 IF CPOINT CEX+1,UA+14)€>5 OR POINT C 
EX+6,UA+14)>5) AND SS=2 THEN GOTO 550 
H20 REM POSITIE CORRIGEREN IUM WIND 

430 IF SS=2 THEN EX=EX+,25*W 

HUD REM WAARSCHUWING VOOR HOOGTE 

450 IF SS=1 AND VA>100 AND VA<120 THEN C 
OLOR 15,5,8 

460 REM MINIMUM HOOGTE IS BEREIKT 

470 IF SS-1 AND VA>119 THEN COLOR 15,5,1 
480 REM BESTURING 

HSO IF STICKCN)=3 THEN EX=EX+.5 

500 IF STICKCN)=7 THEN EX=EX-.5 

510 REM GEBIED BEGRENZEN 

520 IF EX>247 THEN EX=247 

530 IF EX<O THEN EX=0 

540 GOTO 200 

550 REM DE PARACHUTIST RAAKT IETS 

560 X1=POINT CEX+1,UA+14):X2=POINT CEX+6 
‚UA+14) 

570 IF X1=11 OR X2=11 THEN GOIO 420 

580 PLAY””,"M&QOOS1U1SL1EO4CEDFAGBOSLED” 
590 LINE (O,35)-255,0),1,BF 
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502 PSET C1,1),1 
618 IF CX1=5 AND X2<>6) OR CX1<>6 AND X2 
=6) THEN PRINT #1,”Bijna in het midden g 


eland !!!”:PU=PU+4@:GOTO 630 

620 IF X1=65 AND X2=6 THEN PRINT #1, ”Goed 
zo !! In het midden geland.”:PU=PU+50:G 
OTO 690 


630 IF X1=7 OR X2=7 THEN PRINT #1,"Je he 
bt een nat pak gehaald.”:PU=PU-10:GOTO 6 
S0 

640 IF X1=14 OR X2=14 THEN PRINT #1, ”Gev 
aarlijk, je raakte de Flat !”:PU=PU-50: GO 
To 690 

55@ IF Xl=4 OR X2=4 THEN PRINT #1, "Slech 
t‚je raakte het huisje !":PU=PU-4@: GOTO 
630 

650 IF VA<130 THEN 1490 

67@ IF CX1=1 OR X2=1) AND VA>150 THEN PR 
INT #1,”Op het laatste moment nog Fout ! 
”;PU=PU-10:GOTO 690 

580 PRINT #1,”Niet slecht,afstand”;ABSCI 
NTCCBAK+8)-EX)); "meter. ”: PU=PU+25 

690 PSET C1,10),1 

700 PRINT #1,”Punten :”;PU 

71® PSET C1,26),1:PRINI #1,”Toets een le 
tter in voor vervolg” 

720 IF INKEY$S<>"” THEN 720 

73@ FOR F=@ TO 10 

740 PUT SPRITE F‚C@,-9),1,F 

750 NEXT 

750 TS=INKEYS:IF T$="" THEN 750 

770 GOTO 140 

780 REM SUBROUTINE VOOR HET SCHERM 

739@ MO=MO+1 

809 IF MO>6 THEN MD=1:ST=ST+1 

810 IF ST=4t THEN 1580 

B28 Z=INTCRNDC1)*230)+10 

830 WATER=INTCRNDC1)*215)+1 

840 FLAT=INTCRNDC1)*215)+1 

B5@ IF FLAT+44>WATER AND FLAT<WATER+44 T 
HEN 840 
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B5@ HUIS=INTCRNDC1)*215)+1 

870 IF CHUIS+2S5>WATER AND HUIS<WATER+4H4) 
OR CHUIS+33>FLAT AND HUIS<FLAT+S52) THEN 
850 

880 BAK=INTCRNDC1)*215)+1 

830 IF CBAK+4O>WATER AND BAK<WATER+44) O 

R CBAK+40>FLAT AND BAK<FLAT+44) OR CBAK+ 
HO>HUIS AND BAK<HUIS+25) THEN 880 

300 CLS 

910 LINE C@,191)-C255,181),12,BF 

320 CIRCLE C2,9),7,11 

930 PAINT CZ+1,15),11,11 

940 LINE CBAK,186)-CBAK+23,181),13,BF:LI 

NE CBAK+8, 183)-(BAK+15,181),5,BF 

950 LINECBAK+32, 180)-CBAK+32, 166) ,1 

950 IF MO<2 THEN RETURN 

3970 H=RNDC1)*8+5 

980 LINE CFLAT,180)-CFLAT+39, 180-H*B), 14 
‚BF 

330 FOR F=FLAT TO FLAT+34 STEP 6 

1000 FOR J=1 TO H-1 

1010 LINE CF+3,177-J*B)-CF+6,172-J*B),5, 


1020 NEXT 
1030 NEXT 
1040 LINE CFLAT+16,180)-CFLAT+20,173),8, 


1050 IF MO<3 THEN RETURN 
1058 LINE CWATER,185)-CWATER+39,181),7,B 


1870 IF MO<4 THEN RETURN 
1088 LINE CHUIS+1,188)-CHUIS+23,171),4,B 


1090 LINE CHUIS,170)-CHUIS+12,158),4 
1100 LINE CHUIS+12,158)-CHUIS+24,170), 4 
1110 PAINT CHUIS+12,170), 4 

1120 LINE CHUIS+6,176)-CHUIS+11,172),5,B 
F:LINE CHUIS+14,180)-CHUIS+17,172),5,BF 
1130 LINE CHUIS+19,165)-CHUIS+20,151),4, 
BF 

1140 IF MO<S THEN RETURN 
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1152 FOR F=1 TO 30 

1158 UX=RNDCID*2H5+5 

1178 UY=-RNDC1)*BO+40 

1188 IF UX>FLAT-S AND UX<FLAT+43 AND UY> 
H-5 THEN 1200 

1190 LINE CUX,UY)-CUX+2,UY+2),1:LINE CUX 
+3,UY+1D-CUX+H,UYI,1 

1200 NEXT 

1218 IF MO<& THEN RETURN 

1220 LINE (43,35)-(212,27),1,BF 

1230 PSET C5@,28),1 

1248 PRINT #1,”hier niet springen !” 
1250 RETURN 

1258 REM SPRITES DEF INIEREN 

127@ SPRITESCO)=CHRSC255) +CHRSC255) +CHRE 
C255)+CHRSCO)+CHRSCOI +CHRECOI+CHRECOI+CH 
RSCA) 

1289 SPRITESC1)=CHR$C3) +CHRSC7) +CHREC1S) 
+CHR$SC28) +CHRSCS6) +CHRSC1 12) +CHRSCIEI+CH 
RSCO) 

12390 SPRITES(3)=CHR$C192)+CHRSC22H) +CHRE 
C24O)+CHRECSEI+CHREC28I+CHREC1 HI +CHRSCEI 
+CHRS$ CO) 

1300 SPRITESCH)=CHR$C255)+CHRSC255) +CHREÉ 
C255)+CHRSCO)+CHRSCOI +CHRSCOI +CHRECAI +CH 
R$SCO) 

1310 SPRITESCS)=CHRSCIS) +CHRSCHI +CHRECH) 
+CHRSCS)+CHRSC123) +CHRSC2S1I+CHRECI12I+C 
HRS C53) 

1320 SPRITESCE)=CHRSC240) +CHRSC 32) +CHRSC 
32)+CHR$C150) +CHRSC208)+CHRSC223I+CHRECI 
5)+CHRSC255) 

1330 SPRITESC(7)=CHR$SCOI+CHREC7I+CHREC7I + 
CHRSCIS)+CHRSCIS)+CHRSC2S5I+CHREC2HII+CH 
RSC254) 

1340 SPRITESCB)=CHR$COI+CHRECOI +CHRS CIO) 
+CHRSCEOI +CHRSC2H) +CHRSCIE) +CHRS CO) +CHRE 
Ca 

1350 SPRITESCS)=CHRSCOI+CHRS CAI +CHRS CEO) 
+CHRSC126)+CHRSC255) +CHRSC15S5)+CHRECEEI+ 
CHR$SC36) 
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1359 SPRITESC10)=CHRSC24) +CHRSC125) +CHRS 
C24)+CHRSC24) +CHRECIEI+CHRSCIEI +CHRECOI + 

CHRSCO) 

1378 RETURN 

1388 REM SUBROUTINE VOOR DE WIND 

1390 IF ST<2 THEN RETURN 

1408 REM WIND VERANDEREN OF NIET 7 

1418 IF RNDC1)*2@>2 THEN RETURN 

1420 REM NEEM EEN ANDERE WIND 

1430 W=INTCRNDC1)*5)-2 

1440 REM PAS DE SPRITES AAN 

1450 IF W<@ THEN PUT SPRITE W+2, (BAK+25, 
165),6,W+2:IF WW<>W+2 THEN PUT SPRITE Www 
‚C@,-3),1,WW:WWw=W+2 

1458 IF W>@ THEN PUT SPRITE W+2, CBAK+32, 
165),6,W+2: IF WW<>W+2 THEN PUT SPRITE WW 
‚C@,-9),1,wwW:ww=W+2 

1470 IF W=@ THEN PUT SPRITE WW,‚C@,-9),1, 

ww 

1480 RETURN 

1490 REM SLECHT EINDE 

1500 FOR F=5 TO 10:PUT SPRITE F,‚C@,-9),1 
‚F:NEXT 

1518 LINE CEX,UA+5)-CEX+8,VA-40),1,BF:LI 

NE CEX-13,VA-22)-CEX+21,VA-30),1,BF:PSET 
CEX-5,VA-239),1:PRINT #1, "RIP" 

1528 DEFUSR=1 44: U=USRCO) : PLAY" U1SOHLHEAE 

AEAEALBAGDEFAGLH+EDO3L2G”", "VISO2LHEAERERE 

ALBAGDEFAGL+EDO1L2G"” 

1538 LINE (@,40)-C255,0),1,BF 

154@ PSET (70,2),1:PRINT #1,"”"Je bent doo 

& Er 

155@ PSET (62,13),1:PRINT #1, "Je had”;PU 
;”punten.” 

156@ PSET (22,24),1 

157@ GOTO 1630 

158% REM GOED EINDE 

15390 LINE C@,80)-C255,0),1,BF 

1500 PSET C75,3),1:PRINT #1,"*ee EINDE * 


we 


161@ PSET (23,37),1:PRINT #1, "Je hebt”;P 
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U; ”punten gehaald.” 

1520 PSET (22,70),1 

1630 PRINT #1,”Wil je nog een keer P C4/ 
ndr 

1540 IF INKEYS<>”” THEN 1640 

1650 TS=INKEYS:IF T&=”"” THEN 1650 

15650 IF T$="J” OR T$="”j” THEN 130 

1570 IF T&<>"”N” AND T$<>”n” THEN 1650 EL 
SE END 

1588 SOUND7,6@: SOUNDG, 255: SOUND1, 31 : SOUN 
D13,14: SOUNDS, 24: SOUND11, 225: SOUND12, 225 
: RETURN 

16399 SOUND7,&B111111:SOUNDS, 12: SOUNDE, &B 
10220: SOUND11,2@: SOUND12,9: SOUND13, 4: SOU 
ND7,&B110111: RETURN 
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HUIS DER VERDOEMDEN 
ADVENTURE 


Tijdens Uw vakantie in een afgelegen deel van Schotland brengt U 
met een gezelschap een bezoek aan een oud vervallen kasteel. 
Nieuwsgierig als U bent verlaat U de groep en gaat U in Uw 
eentje een donkere gang in, alie waarschuwingen ten spijt. 

Hoe verder U de gang inloopt, hoe dikker de spinnewebben worden. 
Plots staat U aan het einde van de gang. Ket is er kil en 
donker. Op de tast inspecteert U de muren. Plotseling verdwijnt 
de grond onder Uw voeten, een helle Flits en U verliest Uw 
bewustzijn. k 


U bent nu in de macht van de 'VERDOENDEN'. Zij leven in de 
vierde dimensie en azen op Uw onschuldige ziel. U moet proberen 
uit het kasteel te ontsnappen voordat zij U kunnen doden en voor 
altijd Uw ziel zullen blijven sarren. 

In het kasteel bevinden zich voorwerpen welke U soms wel en soms 
niet kunt gebruiken bij Uw ogtsnapping. 

Ook blijken er nog wat monsters te huizen die het ook op Uw 
leven hebben gemunt. 

Veel griezelplezier. 
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18 REM *** HUIS DER VERDOEMDEN =* 

28 CLS:KEYOFF:WIDTH4@: COLOR 11,1,1 

30 REM INITIALISEREN 

4@ KR=100:SC=O:DIM 2C16,5),0C5,2),05C5) 
S@ FOR F=1 TO 16 

50 FOR I=1 TO 6 

7@ READ ZCF,ID:NEXT I 

80 NEXT F 

98 FOR F=1 TO S 

100 READ OSCF),OCF,1),0CF, 2) 

110 NEXT F 

128 DIM N$SCS),MCS,2):FOR F=1 TO 5 

130 READ NSCF),MCF,1),MCF,2):NEXT F 

140 Q=tt: ReRNDC-T IME) 

150 POKE 64683! ,255 

15% PRINT:PRINT STRINGSC4O, "*”) 

178 ON Q GOSUB 1049,1979,1100,1130,1160, 
1190,1229,1259,1289,1310,1310,1310,1310, 
1310,1310,1340,1370 

189 GOSUB 930 

138 GOSUB 1550 

200 INPUT "Wat wil je doen”;A$ 

210 IF AS="” THEN 200 

220 GOSUB +90 

230 FOR A=1 TO LENCAS) 

24@ IF MIDSCAS,A,1)="” ” THEN MS=LEFTSCAS 
‚A-1):GOTO 280 

250 NEXT A 

250 IF A>LENCAS) THEN A=LENCAS) 

270 n$=A$ 

280 IF M$="STOP" THEN 1400 

290 IF M$="DOOD” OR M$="SLA” OR M$="STEE 
K” OR MS="VERMOORD" THEN 1730 

300 IF MS="INVENTARIS"” THEN GOSUB 750 
310 IF MS="NEEM" OR M$="PAK” THEN 530 
320 IF M$="LEG" THEN GOSUB 820 

330 IF MS="SCORE" THEN PRINT "Je score i 
s”;SC;”punten.” 

340 IF MS="STERKIE" OR MS="KRACHT" THEN 
PRINT "Je kracht is”;KR;”"%” 
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350 IF M$="OMHOOG" THEN MS=”NOORD” 

360 IF M$-”OMLAAG” THEN MS="ZUID" 

370 IF (MS="NOORD" OR M$="N") AND ZCOQ, 1 
=O THEN PRINT ”JE KUNT NIET NAAR HET NOR 
DEN.” 

380 IF (MS="NOORD" OR M$="N") AND ZCQ, 1D 
<>0 THEN PRINT "OK.”:Q=2CQ,1):GOTO 160 
390 IF (M$="ZUID" OR M$="2") AND ZCQ,2)= 
@ THEN PRINT "ER IS GEEN UITGANG NAAR HE 
T ZUIDEN.” 

400 IF CM$="ZUID" OR M$="Z") AND ZCQ,2I< 
>O THEN PRINT ”OK.”:Q=2(Q,2):GOTO 160 
410 IF CMS="OOST" OR M$="0") AND ZCQ,3)= 
@ THEN PRINT "JE KUNT NIET DWARS DOOR EE 
N MUUR LOPEN.” 

420 IF CM$="OOST" OR M$="0") AND ZCQ, 3 
>O THEN PRINT "”OK.”:Q=2CQ,3):GOTO 160 
430 IF CMS="WEST" OR M$="W") AND ZCQ,W= 
O THEN PRINT "ER IS GEEN DOORGANG NAAR H 
ET WESTEN.” 

HUD IF CMS-"WEST" OR MS=-"W"D AND ZCQ, HI 
>O THEN PRINT ”OK.”:Q=2CQ,4):GOTO 160 
450 2C5,3)=0 

450 IF MS=”GEBRUIK" OR MS="LEES" THEN 14 
60 

470 IF LENCAS)>LENCMS) THEN AS=RIGHTSCAS 
„LENCAS)-A):GOTO 230 

480 GOTO 200 

490 FOR F=1 TO LENCAS) 

500 IF MIDSCAS,F,1)<"@" THEN MIDSCAS,F,‚1 
gr» 

510 NEXT F 

520 RETURN 

530 IF OC1,1)<>Q AND OC2,1)<>Q AND 0C3,1 
)<>Q AND OCH,1)<>Q AND OCS5,1)<>Q THEN PR 
INT "IK ZIE NIETS WAT JE KUNT PAKKEN. ”:G 
OTO 160 

540 L=LENCAS) :AS=RIGHTSCAS,L-A) 

550 FOR A=1 TO LENCAS) 

560 IF MIDSCAS,A,1)=" ” THEN MS=LEFTSCAS 
‚A-1):GOI0 590 
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570 NEXT A 
580 MS=AS 


5309 IF (MS="DE" OR M$="HET" OR MS="EEN") 


AND LENCAS)>LENCMS) THEN S4@ 
500 IF LENCMS)<2 THEN PRINT "WAT MOET 
DOEN ?”:GOTO 160 
618 IF LEFTSCM$,3)="KAN" AND OC1,1)=Q 
EN PRINT "OK."”:2CQ,5)=@:0C1,1)=@:GOTO 
[/} 
620 IF LEFT$S(M$,3)="DOL" AND OC2,1)=Q 
EN PRINT "OK.”:2CQ,5)=@:0C2,1)=0: GOTO 
V} 
630 IF CLEFTSCM$S,3)="PER" OR LEFTSCMS, 
="ROL”) AND OC3,1)=Q THEN PRINT "OK, ”: 
Q,5)=0:0C3,1)=@:GOTO 160 
540 IF LEFTSCM$,3)="SLE" AND OC4,1)=Q 
EN PRINT "OK.”:2CQ,5)=0:0C4,19=@: GOTO 
7} 
650 IF LEFTS(MS,3)="HAR" AND OCS,1)=Q 
EN PRINT "OK.”:2CQ,5)=@:0C5,1)=@:GOTO 


@ 

550 IF LEFTSCMS,3)="GOR" AND ZCQ,5)=1 
EN 1750 

670 IF LEFTS(MS,3)="HEL" AND ZCQ,6)=2 
EN 1750 

580 IF LEFTSCM$,3)="CYC" AND ZCQ,6)=3 
EN 1750 

690 IF LEFTSCMS,3)="WEE" AND ZCQ,6)=4 
EN 1750 

700 IF LEFTSCMS,3)="Z20M" AND ZCQ,6)=5 
EN 1750 


IK 


TH 
16 


TH 
16 


3) 
2e 


TH 
16 


TH 
16 


TH 
TH 
TH 
TH 


TH 


718 IF P$=”U" THEN PRINT "WIE WIL JE DAT 


IK ”;MS;” P”:PS=""”:GOTO 1658 
720 IF LEFTSCMS,3)="SLE" AND OC4,1)=0 
EN PRINT ”OK.”:GOTO 1500 
730 IF CLEFTSCMS,3)="PER" OR LEFTSCHS, 


="ROL") AND 0C3,1)=@ THEN PRINT "OK.”: 


TO 1350 

740 M$="":GOTO 590 

750 FOR F=1 TO S5:IF OCF,1)=@ THEN 780 
768 NEXT F 


HO 


TH 


3) 
GO 


770 PRINT "JE HEBT ALLEEN JE KLEREN AAN 
JE LIJF .”:RETURN 

780 PRINT "JE HEBT :” 

730 FOR F=1 TO 5:IF OCF,1)=@ THEN PRINT 
"EEN ";OSCF) 

800 NEXT F 

819 RETURN 

829 IF OC1,1)<>0 AND OC2,1)<>@ AND OC3,1 
)<>@ AND OCH,1)<>@ AND OCS,1)<>@ THEN PR 
INT "JE HEBT NIKS OM NEER TE LEGGEN”:GOT 
0 159 

830 L=LENCAS): AS=RIGHISCAS,L-A) 

840 FOR A=1 TO LENCAS) 

850 IF MIDSCAS,A,1)=” ” THEN MS=LEFTSCAS 
‚A-1):GOTO 880 

850 NEXT A 

878 MS=AS 

880 IF M$="DE" OR MS="HET" OR MS="EEN" T 
HEN 830 

B30 FOR F=1 TO S:IF LEFTSCMS$, 3)=LEFTSCOS 
CF),3) THEN OCF,1)=Q:PRINT "OK."”:GOTO 16 
@ 

300 NEXT F 

310 PRINT "WAT WIL JE DAT IK NEER LEG.” 
320 GOTO 160 

930 PRINT :IF ZCQ,6)<>@ THEN RETURN 

940 FOR F=1 TO 5 

950 IF OCF,1)=Q THEN 990 

350 NEXT F 

970 IF ZCQ,6)<>@ THEN RETURN 

380 PRINT "IK ZIE HIER NIETS.”:RETURN 
930 PRINT "IK ZIE :” 

1000 FOR F=1 TO 5 

1010 IF OCF,1)=Q THEN PRINT "EEN ";OSCF) 
1020 NEXT F:PRINT 

1030 RETURN 

1049 PRINT "Je bent in een lange kamer.” 
1050 PRINT:PRINT "De twee vitwegen hier 
zijn noord en oost.” 

105@ RETURN 

197@ PRINT "Hier is de gallerij.” 


1089 PRINT:PRINT "Je kunt met de trap om 
laag naar het zuiden en er is een ui 
tgang naar het oosten.” 

1030 RETURN 

1108 PRINT "Hier bevind je je in de dans 
zaal.” 

1118 PRINT:PRINT ”Je kunt met de trap om 
laag richting zuidof je kunt west gaan.” 
1120 RETURN 

1130 PRINT "Je bent in de ronde kamer.” 
1142 PRINT:PRINT "Je kunt hier zuid,oost 
en west,maar je kunt ook met de trap o 
mhoog gaan richting noord.” 

1158 RETURN 

1150 PRINT "Dit is de kamer van de wacht 


1170 PRINT:PRINT "Er zijn uitgangen naar 
het zuiden en naar het westen.” 

1188 RETURN 

1138 PRINT "Je bent in de hal.” 

1200 PRINT:PRINT "Je kunt met de trap om 

hoog naar het noorden en je kunt zui 

d of west gaan.” 

1218 RETURN 

12208 PRINT "Je bent in de binnenkomsthal 


1239 PRINT:PRINT "Je kunt noord,oost en 


1240 RETURN 

1250 PRINT "Hier ben je in de serre.” 
1258 PRINT:PRINT "Er zijn uitgangen noor 
d‚zuid en oost.” 

1278 RETURN 

1280 PRINT "Je bent in de griezelkamer.” 
1230 PRINT:PRINT "Je kunt zowel zuid als 
oost.” 

1300 RETURN 

1318 PRINT "Je bent in het doolhof.” 
1328 PRINT:PRINT "Je kunt noord, zuid,oos 
t of west.” 

1330 RETURN 
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1340 PRINT "Je bent in een kleine kamer. 


1350 PRINT:PRINT "Je kunt noord, zuid,oos 
t of west.” 

1358 RETURN 

1378 PRINT "Je bent in de buitenwereld.” 
: PRINT 

1380 GOTO 1440 

13390 PRINT "De kwelgeesten zullen altijd 
je ziel blijven sarren.” 

1400 PRINT:PRINT "Je hebt”;SC; "punten ge 
haald,” 

1410 PRINT:PRINT "Wil je het nog een kee 

r proberen ?” 

1420 AS=INKEYS:IF A$=""” THEN 1420 ELSE I 
F AS="J" THEN RUN ELSE IF A$<>"N"” THEN 1 

420 

1430 WIDTH 37:POKE 64583! ,0: KEYON: END 
1449 PRINT "Goedzo, je hebt kunnen ontsn 

appen. Iedereen beschouwt je als ee 
n held !!*” 

1450 GOTO 1400 

14508 IF 0C3,1)=@ THEN 14390 

1470 IF OC4,1)=@ AND Q=S THEN 1490 

1480 PRINT "Dat kun je niet doen! ”:GOTO 
150 

14390 GOTO 540 

1508 2C3,19=7 

1518 SC=SC+30 

1528 PRINT "In het noorden gaat met veel 
gekraak eendeur open.” 

1530 PRINT "Schiet op,‚hij zal dicht gaan 
als je nietsnel bent.” 

1540 GOTO 200 

1550 IF 2CQ,5)<>0 THEN 1570 

1558 RETURN 

1578 PRINT "PAS OP,ER IS EEN ";NSC2CQ,6) 
D] 

1588 PRINT "IN DEZE KAMER!” 

1590 PRINT:PRINT "DE ";NSCZCQ,6));” VALT 
JE AAN. .... hid 


1500 
1510 
1520 
zijn 
1530 
1640 
1650 
1550 
15670 


FOR F=1 TO 4OO:NEXT F 

IF RNDCI)*KR<2@ THEN 1540 
PRINT:PRINT "maar jij ontsnapt uit 
klauwen.” 

RETURN 

PRINT:PRINT "EN HIJ RAAKT JOU !!!” 
FOR F=1 TO 40O:NEXT F 

IF RNDC1)*KR<30 THEN 1700 
PRINT:PRINT ”Je bent verzwakt,maar 


Je leeft nog.” 


16580 
1630 
1700 


KR=KR-INTCRNDC15*30) 
RETURN 
PRINT:PRINT "Met een klap klieft hi 


J Jouw schedel.” 


1710 
1720 
1730 
NIKS 
1740 
1750 
1750 
1770 
N.” 

1780 
1730 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
310 

1880 
nd.” 
1830 
1900 
1910 
je 


1920 
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PRINT "Je bent morsdood." 

GOTO 1390 

IF 2CQ,6)=0 THEN PRINT "ER IS HIER 
TE DODEN,”:GOTO 160 

P$="U":GOTO 540 

Ppse"" 

PRINT "OK." 

PRINT "JE VALT DE ";NSCZCQ,6));” AA 


FOR F=1 TO 4OO:NEXT F 

IF RNDCI)>.6 THEN 1840 

IF OC1,1)=® THEN 1840 

PRINT:PRINT "maar je mist hem.” 
KR=KR-INTCRNDC1)*20) +10 

GOTO 150 

PRINT:PRINT "EN RAAKT HEM !11” 
SC=SC+5 

FOR F=1 TO 4OO:NEXT F 

IF OC1,1)=@ AND RNDCI)*KR>6O@ THEN 1 


PRINT:PRINT ”maar hij blijft overei 
KR=KR-INTCRNDC1)*20) +10 


GOTO 160 
PRINI:PRINT "Je hebt de ";NSC2CQ,6) 


gedood.” 


2C0,5)=0 


1930 SC=SC+50 

1949 GOTO 150 

185@ IF RNDC1)>.7 THEN 2010 

1950 PRINT”Op de perkamentrol staat gesc 
hreven: Zoek Naar Water Onder Onze Ne 
us.” 

1978 PRINT:PRINT "De rol is verpulverd.” 
1388 SC=SC+20 

19398 0C3,1)=10:2CQ,67=0 

2000 FOR F=1 TO 2000:NEXT F:GOTO 160 
2018 PRINT”Je bent vergiftigd door een s 


tof die op de perkamentrol zat. PECH 
GEHAD !!!1” 

eoeg GOTO 1390 

2030 DATA 6,0,4,0,0,0 
2040 DATA 2,4,3,0,1,1 
2050 DATA 0,6,0,2,0,2 
2050 DATA 2,7,5,1,2,0 
2070 DATA 0,1,0,4,0,3 
2080 DATA 3,8,0,7,5,4 
2030 DATA 4,0,5,8,0,0 
2100 DATA 5,10,0,7,3,0 


2110 DATA @,11,16,0,0,5 
2120 DATA 13,13,13,13, 
2130 DATA 3,13,13,13,0,0 
2140 DATA 13,13,13,14,0 
2150. DATA 12,10,10,10,0 
2160 DATA 13,13,15,13,4 
2170 DATA 13,13,11,13,0,0 
2180 DATA 9,3,17,9,0,0 
2190 DATA KANDELAAR, 2,0 
2200 DATA DOLK, 4,0 

2210 DATA PERKAMENTROL,8,0 
2220 DATA SLEUTEL, 14,9 
2230 DATA HARNAS,6,0 

2240 DATA GORILLA, 2,0 

2250 DATA HELLEKOND, 3,0 
2268 DATA CYCLOOP,S,0 

2270 DATA WEERWOLF,5,0 
2280 DATA ZONBIE,S,0 


KALENDER 


Kalender is een programma waarmee U een maandkalender kunt maken 
van elk jaar vanaf 1300. Als U dit programma heeft ingetypt en U 
RUNt het, dan wordt U gevraagd van welk Jaar er een 
maandkalender moet worden gemaakt. Het jaar dat U invoert moet 
grotec zijn dan 1900. De computer berekent dan hoeveel dagen er 
verstreken zijn sinds 1 januari 1900. 

Uit het aantaì dagen wordt dan weer berekend op welke dag de 
eerste januari van het door U gegeven jaar valt. 

Keeft U niet de beschikking over een printer, dan vervangt U de 
LPRINT opdrachten door PRINT opdrachter 
Na de listing is een stukje van zo'n maandkalender opgenomen. 
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1D REM *eanvnannenneenvveneernenen 
*« KALENDERS MAKEN hd 
……evennvennensennnT..……... 

20 CLS:COLOR 15,4,4:D=1 

30 LOCATE @,0: INPUT ”VAN WELK JAAR WILT 

U EEN KALENDER”; J 

40 FOR N=13901 TO J-1 

50 IF N/4=INTCN/4) AND A/1000<> INTCA/100 

0) THEN D=D+366:GOTO 70 

69 D-D+365 

70 NEXT N 

89 E-D-7*INTCD/7) 

90 FOR m=1 TO 12 

100 READ M$,L 

110 IF J/4=INTCJ/4) AND MS="FEBRUARI" TH 

EN L=23 

120 LPRINT M$;” ”;J 

130 LPRINT STRINGSC37,”_") 

140 LPRINT"MAA DIN WOE DON URY ZAT 

ZON” 

150 LPRINT STRINGSC37,” "> 

169 FOR A=1 TO L 

170 LPRINT TABCS*E);USING"##”; A 

180 E=E+1 

139 IF E=7 THEN LPRINT CHR$C13):E=O 

200 NEXT A 

219 LPRINT 

229 LPRINT STRINGSC37," ”) 

230 Rean: LPRINT: LPRINT 

240 NEXT 

250 END 

260 DATA JANUARI, 31, FEBRUARI, 28 

270 DATA MAART, 31,APRIL, 30 

280 DATA MEI,31, JUNI, 30 

23@ DATA JULI,31, AUGUSTUS, 31 

300 DATA SEPTEMBER, 30, OKTOBER, 31 

310 DATA NOVENBER, 30, DECEMBER, 31 


JANUARI 1386 


MAA DIN WOE DON URY ZAT ZON 


1 e 3 rd 5 
5 7 8 3 10 11 12 
13 14 15 16 17 18 13 
20 el ee e3 24 es 256 


FEBRUARI 1386 


MAA DIN WOE DON URY ZAT ZON 


1 ( 


10 11 12 13 14 15 16 
17 18 19 2a el ee ea 


MAART 1386 


MAA DIN WOE DON URY ZAT ZON 
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BIORITME 


Dit programma is gebaseerd op de theorie dat Uw Fysieke, emotio- 
nele en geestelijke kurven een regelmatig patroon volgen van 
resp. 23, 28 en 33 dagen vanaf Uw geboortedag. 

De ups en douns van deze kurven worden op het scherm geplot over 
een periode van vier weken met als centrum de dag, die U in het 
begin van het programma heeft ingevoerd. 

De horizontale as bevat de dagen. 

Kruist nu een der kurven die lijn, dan kan dat voor U een 
kritische dag zijn in Fysiek, emotioneel of geestelijk opzicht. 
Let wel dit KAN , dit hoeft niet zo te zijn. 

U bent die dagen wat gevoeliger voor tegenslagen, voelt zich wat 
minder Fit of bent er die dag niet zo goed bij. 

U doet er goed aan op zulke dagen wat extra op Uzelf te letten. 
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10 REM *** BIORITME *** 
2@ WIDTH3S:KEYOFF 
30 REM GEBOORTEDATUM EN GEWENSTE DAG 


INVOEREN 
40 COLOR11,1,1:SCREENG 
50 PRINT ” ……BIORITME Se 


5@ PRINT:INPUT "Wat is Uw naam ";NS$ 

7@ LOCATE Q,2:PRINT "Hallo ";NS;", 
”;PRINT "wat is Uw geboortedatum 

P C23/7/1360)” 

B@ GOSUB 390 

99 PRINT D$:B5=DS: 2=X 

100 PRINT:PRINT "Welke datum wilt U zien 

P (31/1/1986)”:PRINT:GOSUB 390 

118 PRINT D$:D=X-Z 

128 REM ENKELE FEITEN PRINTEN 

139 PRINT:PRINT "Op die dag” 

140 PRINT "zult U”;D; "dagen oud zijn,” 

158 PRINT ” 3 keer gegeten hebben, ” 

150 PRINT "en”;8*D;"uur geslapen hebben. 


170 REM WACHTEN OMDAT DE SCREEN-MODE 
GAAT VERANDEREN 

188 PRINI:PRINT "Toets een letter in voo 

r vervolg.” 

190 TS=INKEYS:IF T$="" THEN 1390 

200 SCREEN 2 

210 REM SCHERM-LAYOUT 

228 OPEN ”GRP:” FOR OUTPUT AS #1 

230 PSET C57,1),1:PRINT #1, ”BIORITME-KAA 

RT VAN” 

24@ PSET C(129-8*CLEN(NS)/2),11),1:PRINT 

H1,NS 

250 PSET C56,21),1:PRINT #1, ”GEBOREN ”;B 

5 . 

250 FOR F=1 TO 255 STEP 9:LINE CF,‚,108)-C 

F‚,110),15:NEXT 

270 FOR F=1 TO 255 STEP 63:LINE CF,‚106)- 

CF‚112),1S:NEXT 
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280 LINE (127,45)-(127,173),15 

290 PSET C1,182),1:PRINT #1,”-2WKN”:PSET 
C214,182),1:PRINT #1, ”+2UKN” 

300 PSET (127-B*CLENCDS)/2),182),1: PRINT 
#1,DS 

310 REM BEGIN DE KURUEN TE TEKENEN 

320 PSET C9,30),1:COLOR 4:PRINT #1,”EMOT 
IONEEL”:C=28:GOSUB 500 

330 PSET (101,30),1:COLOR 2:PRINT #1,"FY 

SIEK”:C=23:GOSUB 500 

340 PSET C160,30),1:COLOR B:PRINT #1,”GE 

ESTELIJK”:C=33: GOSUB 500 

350 REM EINDE 

360 DEFUSR1=342: U=USR1 CO) 

370 IS=INKEYS:IF TS="" THEN 370 

380 CLOSE: GOTO30 

330 REM SUBROUTINE VOOR DE DATA 


400 INPUT ” Jaar :"”;Y:X=355*Y+IN 
TCY/HD-INTCY/100) 
410 INPUT * Maand :"”;M:IF M<1 OR 


M>12 IKEN 410 
420 RESTORESSO 
430 FOR A=1 TO M:READ B:X=X+B:NEXT 
HUD L=Y=teINICY/H) AND Y<>100*INTCY/100) 
450 IF L AND Me THEN X=X+1 
460 READ B:1F L AND M=2 THEN B=29 
470 INPUT ” Dag :”;D:IF D<1 OR 
D>B THEN 470 
480 X=X+D: DS-RIGHTSCSTRSCD), LENCSTRS CDD) 
=19+"”/”+RIGHTSCSIRSCH) ,LENCSIRSCMID 19+” 
/”+RIGHISCSIRSCY),LENCSIRSCY)) 1) 
430 RETURN 
500 REM SUBROUTINE DIE DE KURUEN 
TEKENT 
510 FOR F=0 TO 253:B=D-14+F/9 
520 LINE CF,109-60*SINC2*3.14*B/C))-CF+2 
‚109-50*SINC2*3,14*B/CJ) 
530 NEXT 
540 RETURN 
550 DATA 0,31,28,31,30,31,30,31,31,30,31 
„30,31 


121 


SPRITE-ONTWERPER 


Een hulpprogramma dat zeer handig is b:j het ontwerpen en 
definieren van een of meerdere SPRITES. 

De computer vraagt U eerst om een patroon (bijv. 2 bij @ 
sprites) en zet dan de lege sprites vergroot op het scherm. 

In de linkerbovenhoek verschijnt een cursor, die U met de 
cursortoetsen kunt verplaatsen. 

U kunt dan een vakje (een bit van de sprite) definieren of 
wissen met resp. Funktistoets F1 en F2. 

Als U klaar bent met het ontwerpen van de sprites) kunt U door 
Eunktietoets FS in te drukken de gegevens van de sprites) op 
het scherm krijgen. U kunt daarbij kiezen uit een decimale of 
binaire notatie, 
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10 REN *** SPRITE-DESIGNER *** 

20 REM INITIALISEREN 

30 CLEAR 400 

40 CLS:KEY OFF 

50 COLOR 11,1,1 

59 LOCATE 5,2 

70 PRINT"* « « SPRITE-DESIGNER * * «” 

80 LOCATE 0,8 

30 PRINI"GEEF HEI AANTAL SPRITES :” 

100 LOCATE 5,11 

110 PRINT"IN DE BREEDTE ?CHAX.3)”; 

120 AS=INKEYS:IF A$="" OR A$<"”1” OR AS>” 

3” THEN 120 

130 BB=VALCAS):PRINT BB 

140 LOCATE 5,13 

150 PRINT "IN DE HOOGTE ?CMAX.22”; 

160 AS-INKEYS:IF AS="" OR A$<”1"” OR AS>” 

2” THEN 160 

170 HH=VALCAS): PRINT HH 

180 DIM XCBB*8,HH*8),S$CH8),TC384),GCHBD 

199 C=1:D=1:R=128 

200 FOR F=1 TO 100: NEXT F 

210 REM SCHERM LAY OUT 

220 SCREEN 2,0 

230 SPRITESCO)=-CHRSCOI+CHRSCBE) +CHRSCIE) 

+CHRSC24) +CHRSC24) +CHRS CIE) +CHRSCEEI+CHR 

SCO) 

240 LINE C1265-BB*32,95-HH*32)-(127+BB*32 
‚95+HH*32),8,B 

250 A=127-BB*32:B-95-HH*32 

260 KEYC1) ON:KEYC2) ON: KEYC5) ON 

270 ON KEY GOSUB 420,450,,,500 

280 OPEN”GRP:” AS #1 

230 PSETCH5,1),1:PRINI#1,”F1 = VELD VULL 

EN” 

300 PSETCHS,11),1:PRINI#1,”F2 = VELD WIS 

SEN” 

310 PSETCHS,21),1:PRINI#1, "F3 = GEGEVENS 
PRINTEN” 

330 REM HOOFDPROGRAMMA 


340 PUT SPRITE O,CA,B),4,0 

350 REM BESTURING 

360 IF STICKCO)=3 THEN IF A<118+BB*32 TH 
EN A=A+B:C=C+1 

370 IF STICKCO)=7 THEN IF A>127-BB*32 TH 
EN A=A-B:C=C-1 

380 IF STICKCO)=5 THEN IF B<B6+HH*32 THE 
N B=B+8:D=D+1 

330 IF STICKCO)=1 THEN IF B>35-HH*32 THE 
N_B=B-8:D=D-1 

400 FOR F = 1 TO 20:NEXT F 

410 GOTO 330 

H20 REM VELD VULLEN 

430 1-8 

449 GOTO 470 

450 REM VELD WISSEN 

460 1=1 

470 LINECA,B+1)-CA+7,B+8), 1,BF 

480 IF I=1 THEN XCC,D)=@ ELSE XCC, D)=1 
430 RETURN 

500 REM GEGEVENS PRINTEN 

510 KEYCIJOFF: KEYC2) OFF: KEY (5) OFF 
520 SCREEN @ 

530 LOCATE 8,9:PRINT"EVEN GEDULD A.U.B.” 
540 REM BYTES OP VOLGORDE ZETTEN 

550 2-0 

560 FOR F=1 IO BB*8 STEP 8 

570 FOR J=1 TO HH*B 

580 FOR K=Q 10 7 

590 2=2+1 

BOD TCZI=-XCF+K, JD 

510 NEXT K 

620 NEXT J 

530 NEXT F 

640 AA=BB*HH 

550 2-7 

560 FOR F=1 IO AR*8 STEP 3 

670 FOR K=@ TO 7 

580 2=2+8 

630 FOR J=@ TO 7 

700 REM BEPAAL DE BINAIRE VORM 
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SSCF+K)=SSCF+K)+RIGHISCSIRSCTCZ+JD), 
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720 NEXT J 

730 REM BEPAAL DE DECIMALE WAARDE 

740 U=D:R=128 

750 FOR L=1 TO 8 

76@ IF MIDSCSSCF+K),L,1)="1" THEN U=U+R 
770 R=R/2 

780 NEXT L 

730 GCF+K)=U 

800 NEXT K 

810 NEXT F 

820 LOCATE @,5 

830 PRINT:PRINT 

B4@ PRINT TABCB); "BINAIR--------- 

B5@ PRINT TABCB) ; "DECIMAAL- 

B56® PRINT TABCB); "NIEUWE SPRITE--> 3” 
870 AS=INKEYS: IF AS="" THEN 870 

880 IF A$="2" THEN BD=2: GOTO 920 

830 IF A$="3" THEN RUN 

300 IF AS<>"”1” THEN 870 

910 BD=1 

320 PRINT:PRINT TABC9); "PRINTER OF SCHER 
mr 

930 AS=INKEYS: IF A$="” THEN 930 

340 IF AS="P" OR AS="p" THEN CLOSE#1:OPE 
N"LPT:” AS 1: GOTO 970 

950 IF A$="5" OR AS="s" THEN CLOSE#1:O0PE 
N"CRI:” AS 1: GOTO 970 

960 GOTO 930 

970 REM PRINT-ROUTINE 

980 CLS 

930 T=-0:P=0 


1000 FOR F=1 TO AA 

1010 PRINT#1, "SPRITE"; F;"="; 

1020 P=P+1:T=T+1 

1039 IF BD=1 THEN PRINI#1,SSCP); ELSE PR 


INT 


#1,GCPD; 


1040 IF T<8 THEN PRINT#1,”+”;:GOTO 1020 
1050 IF BĲ=2 THEN PRINT#1, 
106% T=-@:PRINI#1I,:NEXT F 
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107@ GOTO 830 
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TOPSCORE-ROUTINE 


Dit is een handige subroutine voor hen die zelf spelletjes 
willen schrijven en gebruik maken van een topscore-lijst. het 
programma houdt een Top Tien bij van de beste spelers met hun 
score en het gespeelde nivo. 

Ket is de bedoeling dat regel 10 van de subroutine in Uw eigen 
programma wordt opgenomen. De rest 15 dan de eigenlijke subrau- 
tine die U vanuit het programma dan kunt aanroepen met een GOSUB 
opdracht. 

Werkwijze: Toets het programma inclusief regel 10 in en zet het 
op een cassette met: SAVE “CAS:SCORE", 

Nadien kunt U dan deze routine aan Uw eigen programma koppelen 
met de opdracht: MERGE "CAS:SCORE". 

Let er dan wel op, dat U geen programma-regels gebruikt die 
dezelfde nummering hebben als de topscore-routine, want door het 
MERGEN worden deze regels namelijk overschreven. 

U kunt de subroutine aan Uw eigen inzichten aanpassen, let er 
dan op dat 1k in deze subroutine ervan uitgegaan ben dat gewerkt 
wordt met SCREEN O en WIDIK 3%. 


De gebruikte variabelen zijn: 
N$= Namen van de tien beste spelers 
P$- De tien beste scores 
L$= Snelheid of nivo van het spel per speler 
P = Behaalde score 1n het laatst gespeelde spel 
SN= Snelheid of nivo van het laatst gespeelde spel 


AEhankelijk van zijn waarde zal de score P worden bijgeschreven 


in de Top Tien. 
Een voorbeeld van deze routine vindt U in het programma PYTHON. 
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10 DIMNSC1@),PSC1Q),LSCIO):FOR N=1 TO 10 
:NSCF)="MSX": PSCF)="@":LSCFI="D":NEXT F 
15000 REM TOPSCORE-ROUTINE 

15018 PRINT TABC4);”Je hebt”;P; "punten g 
ehaald” 

15020 SS=-STRSCP) 

15030 FOR F = 1 TO 10 

15040 IF VALCPSCF))>=VALCSS) THEN NEXT F 
15050 IF F>1@ THEN 16160 

16068 IF F=1@ THEN 16120 

15879 FOR I=10@ TO F+1 STEP -1 

15089 PSCI)=P$CI-1) 

150399 NSCI)=N$SCI-1) 

16109 LSCIJ=LSCI-1D 

15118 NEXT 1 

16120 P$SCF)=S$:LSCF)=STRECN) 

15130 IF INKEYS<>”” THEN 16130 

15149 LOCATE @,3 

16158 INPUT "Wat is je naam”;NSCF) 

156168 LOCATE @,3 

15179 PRINT TABC1);”Nr.”;TABC7); "Score"; 
TABC15);"Speler”;TAB (29); ”Snelheid” 
15188 PRINT 

1513@ FOR F=1 TO 10 

15200 PRINT F;TABC6);PSCF); TABCIS);NECF) 
;TABC32); LSCFD 

15218 NEXT F 

15228 RETURN 
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ROBOTSCHRIFT MSX 


Robotschrift 1s een compleet nieuwe karakterset voor gebruik in 
SCREEN O en SCREEN 1. 

De nieuwe karakters komen in plaats van de kleine letters en de 
cijfers O t/m 5. 


1@ REM SUBROUTINE VOOR COMPUTERSCHRIFT U 
OOR SCREEN @ 

20 RESTORE 10000 

30 FOR F=776 TO 983 
40 READ N 

50 UPOKE BASEC2)+F ‚N 
59 NEXT 

70 FOR F=3864 TO 463 
BO READ N 

90 UPOKE BASEC2)+F‚N 
100 NEXT F 


18 REM SUBROUTINE VOOR COMPUTERSCHRIFT U 
OOR SCREEN 1 

20 RESTORE 10000 

30 FOR F=776 IO 983 
4@ READ N 

5@ UPOKE BASEC7)+F ‚N 
50 NEXT 

70 FOR F=384 TO 463 
80 READ N 

30 VPOKE BASEC7)+F ‚N 
100 NEXT F 
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10000 
12010 
10020 
12030 
10040 
10050 
10050 
10070 
10080 
10030 
10100 
10110 
10120 
10130 
19140 
10150 
10160 
10170 
10180 
19150 
19200 
19210 
19220 
10230 
10240 
12250 
10260 
12270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


112,80,80,248,200,200,200,0 
240, 144, 144,248,200,200, 248,0 
248,136,128,132,132,200, 248,0 
248,135,1365,200,200,200,248,0 
248, 128,128,240,132,132,248,0 
248,128,128,240,132,132,132,0 
248,136,128,216,200,200,248,0 
136,136,136,248,200,200,200,0 
3e, 32,32, 48,48,48,48,0 
8,8,8,24,24,152,248,0 

144, 1d4, 144, 248, 200, 200, 200,0 
128,128,128,192,192,192,248,0 
248,168,168,168,168,168,168,0 
248,136,136,200,200,200,200,0 
248,136,136,136,136,184,248,0 
248,136,136,248,192,132,132,0 
248,136,136,168,158,184, 248,0 
240, 144, 144, 248,200,200,200,0 
248,136,128,248,24,152,248,0 
248,32,32,48,48,48, 48,0 

136, 136, 136,200, 200, 200, 248,0 
136,136,136,80,80,80, 32,0 
168, 168, 168, 168, 168, 168, 248,0 
136,136,136,112,200,200,200,0 
136,136,136,248, 48, 48,48,0 
248,8,8,248,192,192,248,0 
24B,152,152,168,200,200, 248,0 
16,16,16,48,48,48,48,0 
248,136,8,120,192,132,248,0 
240,16,24B,24,24,24,248,0 
128, 128, 144, 248,48, 48,48,0 
248,128,240,24,24,24,248,0 
240,128,128,248,200,200, 248,0 
248,8,8,24,24,24,24,0 
112,80,80,248,152,152,248,0 
248,136,136,248,24,24,24,0 


